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system which is relatively hardware independent, adaptable, 
comprehensive, maintainable and functional in a multipro- 
cessing, multiprogramming environment. The operating system 
model is defined by using the techniques of Structured 
Programming, Decision Hiding, and Multi-Level Hierarchical 
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system processes which provide services to applications pro-^ 
grams such as input/output operations, and primitives which 
allow for the dynamic creation and control of processes as 
well as the interprocess communications. Finally, formal 
parameter specifications are developed which identify the 
module interfaces, functions, and proposed implementation. 



4 



TABLE OF CONTENTS 



I. INTBODOCTION 10 

A. NODULAR OPERATING SYSTEMS 10 

B. RESEARCH GOALS 11 

II. AADC OPERATING SYSTEM DESIGN METHODOLOGY 13 

A. MODUIAR DESIGN CONCEPT 13 

B. THE DECISION HIDING CRITERIA 14 

C. TEE HIERARCHICAL STRUCTURE 15 

D. MODULE INTERFACE DECISIONS 16 

III. PRELIMINARY DESIGN SPECIFICATIONS 18 

A. OPERATING SYSTEM PROCESSES - LEVEL 2 21 

1. Error Handler - Level 2.6 23 

2. Operator System Communicator - Level 2.5 ... 24 

3. Input/Output Controllers - Level 2.4 25 

4. Initiator - Level 2.4 28 

5. Terminator - Level 2.4 28 

6. File Management - Level 2.3 and 2.2 29 

7. Interrupt Handler - Level 2.1 32 

B. OPERATING SYSTEM PRIMITIVES - LEVEL 1 34 

1. Interprocess Communication - 

Level 1.3 and 1.2 35 

2. Scheduler - Level 1.3 38 

3. Device Directory - Level 1.3 40 

4. Data Structures - Level 1.2 41 

5. Primitive-Hardware Interface - Level T.1 ... 47 

IV. DESIGN VALIDATION 49 

A. THE HARDWARE SIMULATOR . . 49 

B. 1HE INITIALIZATION MODULE 50 

C. IKE PREPROCESSOR MACRO 51 

D. TESTS OF SELECTED OPERATING SYSTEM FUNCTIONS ... 51 

V. SUMMARY AND RECOMMENDATIONS 53 

A. SUMMARY 53 

E. RECOMMENDATIONS 55 



5 



APPENDIX A GLOSSARY 57 

APPENDIX E HIGH LEVEL LANGUAGE FOR MODELLING 60 

APPENDIX C MODULE SPECIFICATION AND IMPLEMENTATION 63 

APPENDIX D MODEL INITIALIZATION AND TEST PROGRAMS 202 

LIST OF REFERENCES 212 

BIBLIOGRAPHY * 214 

INITIAL DISTRIBUTION LIST 215 



6 



LIST OF TABLES 



I. BASIC FUNCTIONAL REQUIREMENTS FOR THE AADC 

OPERATING SYSTEM 20 

II. MESSAGE BUFFER 36 

III. PROCESS CONTROL BLOCK DATA STRUCTURE 42 

IV. RESOURCE CONTROL BLOCK DATA STRUCTURE 43 

V. COME A EISON OF SELECTED HIGH LEVEL LANGUAGES 62 



7 



LIST OF FIGURES 



1. THE HIERARCHY OF OPERATING SYSTEM PROCESSES ....... 22 

2. THE HIERARCHY OF OPERATING SYSTEM PRIMITIVES 35 



8 



LIST OF ALGOBITHMS 



1. EBEOB HANDLES 23 

2. OPEBATOB SYSTEM COKMUNIC ATOB . 25 

3. INPUT CCNTBOLLEB 26 

4. OUTPUT CONTROLLER 27 

5. INITIATCB 28 

6. TEBMINATOB 29 

7. FILE MANAGER 30 

8. FILE SPACE MANAGES 32 

9. INTERRUPT HANDLER 33 

10. RELEASE 37 

11. BEQUEST 37 

12. ALLOCATOR 38 

13. SCHEDULER 39 

14. DEVICE DIRECTORY 41 

15. RCB HANDIER 44 

16. PCE STBUCTURES 45 

17. INTERRUPT ENABLER 47 

18. INTEBRUPT DISENABLER 47 

19. SAVESTATE 47 

20. BESTOEESTATE 48 



9 



I. • INTRODUCTION 



In the 1960's the Navy saw a proliferation of various 
types of computers and found itself faced with enormous and 
expensive computer procurement and support problems. Thus, 
in 1968 the Naval Air Systems Command undertook the design 
and development of a modular digital computer system 
(Advanced Avionic Digital Computer) for future naval air 
computing reguirements. The impetus for the project was 
cost reduction through the application of standardization 
and modularity. By using standardized modular hardware and 
software components, the proposed AADC system could be 
configured as a simple minicomputer, a complex multi-* 
processor system, or anything in between. In 1972, the 
Department of the Navy recognized the potential of this 
computer and expanded its role from the Advanced Avionic 
Digital Computer to the All Application Digital Computer 
(AADC) . The AADC system, which is still in the advanced 
development stage, is intended to satisfy the entire 
spectrum of Naval Airborne and general purpose computing 
reguirements for the 1978-1990 time period [Refs. 1 and 2]. 

A. MODULAR OPERATING SYSTEMS 

The advent of complex, multipurpose computer systems 
necessitated the development of an operating system which 
guided a computer in the performance of its tasks and 
assisted the applications programs with certain supporting 
functions. Shaw [Fef. 3] defined an operating system as 
"an organized collection of (systems) programs that acts as 
an interface between machine hardware and users, providing 
users with a set of facilities to simplify the design, 
coding, debugging, and maintenance of programs; and, at the 
same time, controlling the allocation of resources to assure 
efficient operation." The complexity of these operating 
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systems varied according to the size and purpose cf the 
computer installation; i.e., from single CPU monoprogrammed 
to multiprocessor, multiprogrammed systems. Host of the 
existing third generation computer operating systems were 
designed as highly interdependent, complex systems. Once 
these systems had been i nplemented, any changes, 
improvements, or corrections were difficult and costly. 
Benson [Bef. 4] described some of the consequences of these 
complex systems as: 



Instead of the programming task becoming easier with 
more sophisticated machines, it has become increasingly 
more difficult. Large and intricate computer programs are 
being constructed and as a direct consequence the task of 
demonstrating that the programs are correct, that is they 
are producing in ail cases the correct output for the 
input data, is nearly impossible. 

Another conseguence of increased proqram complexity is 
the increased cost of design and implementation. Although 
hardware costs are generally decreasing, the cost of 
software is increasing dramatically... 

In an attempt to solve the above two problems the 
technique of "structured programming" has been proposed. 



The primary advantages of the Modular Design Method 
("Structured Programming") have been increased system 
reliability, reduced complexity, and ease of modification. 
Consequently, the software development and support costs 
have been reduced. 



B. EESEABCH GOALS 



The goals of this research were to develop a 
modularized, general purpose operating system for the AADC, 
and to specify the modules and module interfaces in a 
functional notation. D. L. Parnas [Ref. 5] described the 
criteria to be used for module specification as: 



1. The specification must provide to the intended user 
all the information that he will need to use the program 
correctly, and nothing more. 

2. The specification must provide to the implementer all 
the information about the intended use that he needs to 
complete the program, and no additional information; in 
particular, no information about the structure of the 
calling program should be conveyed. 
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3. The specification must be sufficiently formal that it 
can conceivably be machine tested for consistency, 
completeness (in the sense of defining the outcome of all 
possible uses) and other desirable properties of a 
specification. 

4. The specification should discuss the program in the 
terms normally used by user and implementer alike rather 
than seme other area of discourse. 



These goals were achieved by employing the modular design 
concept in a "top down" approach to design and 
implementation. To attain these objectives, the research 
was organized as follows: 

1. Define the design philosophy and heirarchy, 

2. Define preliminary specifications for each module, 

3. Design the modules, 

4. Implement the modules, 

5. Test the model, 

6. Define formal specifications for each module. 
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II . AADC OPERATING SYSTEM DE SIGN ME THODO LOGY 

By applying the concept of modularity and the "decision 
hiding" criteria, the operating system has been defined as a 
set of hierarchical modules which have facilitated the "top 
down" design and implementation. As presented in the 
following sections of this chapter, these techniques have 
provided the means of expressing a large system as a logical 
ordering of less complex components. 



A. MODULAR DESIGN CONCEPT 



The modular design concept has been described by 
Gouthier and Pont [Ref. 6] as: 



A well defined segmentation of the project .effort 
ensures system modularity. Each task forms a separate, 
distinct program, module. At implementation time eacn 
module and its inputs and outputs are well defined; there 
is no conxusion in the intended interface with other 
system modules. At checkout time the integrity cf tne 
module is tested independently; there are few scheduling 
problems in synchronizing the completion of several tasks 
nefore checkout can begin. Finally, the system is 
maintained in modular fashion; system errors and dificien- 
cies can be traced to specific system modules, thus 
limiting the sccpe of detailed error searching. 



In recent years, there have been a number of proponents 
(Dijkstra, Parnas, Brinch Hansen, to name a few) for a 
modular design approach for developing large programs. The 
basic justification for this approach has been to allcw the 
design cf a system to proceed in a hierarchical way. By 
treating the system as a set of basic components, specifying 
the requirements/functions of each and then treating each 
component as a system (module), the original system has been 
divided into a set of independent modules. Consequently, 
the hierarchical organization in the operating system model 
has simplified module specification, implementation and 
testing. 
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Many operating systems in past years have been designed 
with inadequate methods of program construction. Although 
specific requirements have been given, the design has 
proceeded with the impetus on efficient resource utilization 
at the expense of long term systems reliability and 
maintainability. This conventional approach has restricted 
the versatility of the computer system and thereby limited 
the applications programmer's ability to design more 
advanced programs requiring extended computer capabilities. 
Additionally, any attempt to expand or modify the existing 
operating system to provide more services had been difficult 
because of the rigid set of specif ications in its basic 
design [fiefs. 7 and 8]. D. L. Parnas [fief. 9] has proposed 
a solution to the problem as: 



The basic justification for the design methodology 
presented an o^d precept from engineering design: a 
problem must be defined before it is solved. The result 
was a methodology which laid great stress on specifying 
the behavior of a system or a component in a system before 
producing the design... 

The premise that we should proceed by specifying the 
behavior of a system before designing its components 
implies that we can no longer look at an operating system 
as an item to be placed on a previously designed piece of 
hardware. The actual design should begin with a 
specification of the overall behavior of the hardware- 
software combination. It continues by dividing the system 
into components and they. in turn, are designed with 
little or no attention to the question of what will be 
hardware and what will be software until very late in the 
design . 



The principle goals of the Modular Design Concept as applied 
to the development of an AADC operating system have been to 
define the overall system requirements and to satisfy these 
requirements by designing and implementing independent 
modules with well-defined interfaces. 



B. THE DECISION HIDING CRITERIA 

Unlike t-he conventional modular design which had defined 
operating system modules according to function, the decision 
hiding technique has been used to modularize a large system 
in a different way. Decision hiding has been proposed as a 



14 



I 



means of decomposing a large system into modules based on 
isolating the decisions made at each stage ox the design. 
Initially, a set of basic decisions has been specified to 
define the operating system (i.e., multiprocessor, 
monoprogrammed, shared resources, etc.). Once decision 
hiding has been applied to obtain a module for a specific 
decision, the technique may be re-applied to define 
decisions for sabmodules. 

Modularization by this technique has provided "a 
mechanism for improving the flexibility and 
comprehensibility of a system while allowing the shortening 
of its development time” [Ref. 10 j. For example, in the 
design of a large system program by the conventional method, 
the system's data structures; i.e., control blocks, queues, 
etc., have been accessed directly by several ' modules. Since 
the data structures have served as interface variables 
between certain modules, a change in the format has 
necessitated a corresponding change in all the modules using 
these structures. The decision hiding criteria added the 
requirement that each data structure be defined separately 
and managed by a specific module. Consequently, 
modification of a data structure format has required a 
change to only one module, the data structure management 
module, since the interfaces have been defined explicitly. 

C. THE HIERARCHICAL STRUCTURE 

The modular design concept using decision hiding has 
resulted in the decomposition of the operating system into a 
set of distinct modules. This technique has enhanced system 
reliability and comprehensibility, increased flexinility and 
made testing easier. Further improvements in these areas 
have been achieved by ordering the modules into a 
hierarchical structure in which the specific relations 
between the modules have been explicitly defined. 
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Since one module frequently has provided services to 
several modules, the system hierarchy has been established 
by identifying the use or dependency relationships. For 
example, those modules which identify the basic functions of 
the operating system have been assigned to the top level - 
level N. Each subsequent level (N- 1 , N-2 , . . . , 1) has been 
formed as a collection of those modules that provide the 
services required in the preceeding level. 

Two benefits have been gained from the establishment of 
a hierarchy. Firstly, the upper levels have been simplified 
because they use the lower levels as primitive operations. 
Secondly, the lower levels may be used as a subsystem 
because they do not require the services of the modules in 
the higher levels. Therefore, the technique of hierarchical 
structuring combined with the previously described design 
techniques have established a means of developing a 
well-def ined operating system. 

D. MODULE INTERFACE DECISIONS 

The three design methodologies define the technique used 
in designing a modular operating system. As the functions 
and requirements were identified and assigned to separate 
modules, the specification of the module interfaces with the 
rest of the system was necessary to permit independent 
module development. These interface decisions define the 
conventions for passing information between modules; and, in 
some instances, they specify the data format and type. Once 
the module interfaces were defined, system design proceeded 
with strict compliance to these constraints. In this 
manner, system comprehensibility was enhanced and, although 
flexibility appears to be limited, the algorithm developed 
for each module may be readily changed provided the 
interface requirements are *not violated. Since the 
operating system will be composed of functionally related 
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modules, the module interface decisions specifically 
identify the logical flov of information between modules and 
the set cf constraints to be observed in developing them. 
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III. PRELIMIN ARY DESIGN SPECI FICATIONS 



The essential requirement in preliminary design specifi- 
cation has been defining thfe purpose for which the AADC 
operating system was being designed and then to determine 
the set of basic functions which satisfy this purpose. Since 
the AADC operating system was to be designed as a multi- 
purpose, modular system which served as an interface between 
user programs and hardware, the specifications have been 
determined by considering the requirements of an operating 
system in a multiprogramming, multiprocessing environment. 
The decision to design the operating system in this environ- 
ment was predicated on the fact that monoprogrammed and 
single processor, multiprogrammed systems could be obtained 
as logical subsets of the design by restricting the number 
of user jobs in the system and number of proeessors, 
respectively . 

The first task in developing the preliminary design 
specifications was to identify the services to be provided 
to the user and the essential managerial functions to be 
performed by the operating system given the constraints of 
multiprogramming and multiprocessing. Firstly, the operating 
system had tc perform monitoring operations to supervise the 
activity in the system and to detect and rectify, where 
possible, software or hardware errors. Secondly, a means for 
managing resources, such as processors, files, input/cutput 
devices, space, etc., had to be provided for more efficient 
resource utilization. Thirdly, a technique for passing 
information between separate programs (system or user jobs) 
had to be designed; and finally, the operating system had to 
provide a simple method for controlling input and output 
operations, a means by which a user may enter his program 
into the system and obtain the requested output. 
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In addition to these functions and services, several 
requirements have been specified in the AAEC Development 
Project which have a direct effect on the design and imple- 
mentation of the operating system. In particular, the opera-' 
ting system will be executable on one processor at any point 
in time; i.e., a dedicated system processor. Secondly, the 
user has been given the ability to cause the creation of 
separate processes 1 that may execute independently from the 
parent process. Another requirement has been the 
implementation of paging techniques; however, the page fault 
recognition and page replacement algorithms have been 
scheduled for implementation in hardware [Refs. 2 and 11]. 



Finally, a standardized, simple communications technique 
has been specified to facilitate interprocess communication 
and process to hardware communication. In current operating 
systems, the communications facilities have varied according 
to the type of communication; i.e., user processes pass 
information to system processes via a program interrupt 
facility, system processes communicate with other system 
processes via shared tables and lock/unlock mechanisms, etc. 
Meeker [Ref. 12] has described the problems resulting from 
these implementations as: 



By building systems with all these varied communica- 
tion facilities, we tend to overcomplicate and overburden 
the operating system and the user programs. This non- 
uniformity of communication techniques within a system 
leans to problems of synchronization and scheduling and to 
systems where the overall design and structure become 
'Obscure and maintenance becomes difficult... 

It would, therefore, be very desirable to build an 
operating system where data exchange techniques are 
simplified ana which will execute efficiently on our 
spectrum of multiple processor hardware configurations. 
These goals can be achieved by having all processes in the 
system communicate via explicit data exchanges. 



1 A process is a task or algorithm which competes for 
resources and can be characterized by its state and 
environment. 
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The communications technique utilized in this operating 
system has been designed to pass information through the use 
of message semaphores and buffers [Refs. 3, 8, 12, and 13]. 
The interprocess communication requirement and the function- 
al requirements identified in the preceeding paragraphs are 
summarized in Table I. 



TABLE I BASIC FUNCTIONAL REQUIREMENTS FOR THE 
A ADC OPERATING SYSTEM 



FUNCTION 


DEFINITION 


Monitoring 


Supervise the activity in the 
system: Detect and rectify hardware 
and software errors. 


Resource Allocation 


Supervise the allocation of 
resources to competing system and 
user processes. 


Input/Output Control 


Method for users to enter programs 
into the system and obtain output. 


Communication 

Requirements 


Technique for passing information 
from process to process, process to 
hardware, and in operator-system 
communications. 


Multiprogramming 
and Multiprocessing 


Scheduling technique for optimizing 
system utilization while providing 
processor execution time equitably. 


Dedicated Processor 


Operating system executable on only 
one processor at any point in time. 


User Created Processes 


Method by which a user process can 
create independent/dependent user 
processes. 


Paging 


(To be implemented in hardware) 



Having identified the basic functional requirements of 
the operating system, the preliminary design specifications 
were determined in the manner described in the preceeding 
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chapter. To facilitate design and hierarchical ordering, 
the modules were divided into two distinct classes 
(processes and primitives) . Process modules were designed 
to perform specific functions while competing for system 
resources; whereas the primitive modules were designed to 
perform the common services required by user and system 
processes. In particular, primitives were used to provide 
the mechanism for resource allocation and process 
communication, and to protect critical sections. 

The operating system processes have been assigned to 
level 2, whereas the primitives which provide services to 
the processes were assigned to level 1. Within each of these 
levels, the modules have been ordered hierarchically depen- 
ding on the services they provided to other modules on the 
same level. For example, a system monitor module reguired 
the services of an input/output control module to receive 
instructions from or pass information to the computer system 
operator. In this case, the monitor would be assigned to 
level 2.2 and the I/O controller to level 2,1. Hence, any 
module on level 2 may utilize the services provided by 
modules on level 1; however within the levels, services may 
be obtained from modules on an adjacent,, lower level. The 
remaining sections of this chapter are concerned with -the 
preliminary design specifications of the operating system 
modules. The Fundamental algorithm Technique used by Knuth 
[Ref. 14] was adopted to define the program logic of the 
processes and primitives described in the following 
sections . 

A. OPERATING SYSTEM PROCESSES - LEVEL 2 

The first stage in the preliminary design specifications 
for the operating system processes was to determine which of 
the basic functions could best be performed by a process and 
then to determine wnich processes provided services to other 
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LEVEL 2.6 

ERROR 

HANDLER 



LEVEL 2.5 



OPERATOR 

SYSTEM 

COMMUNICATOR 



LEVEL 2.4 







INPUT 




OUTPUT 






INITIATOR 




CONTROLLER 




CONTROLLER 




TERMINATOR 



LEVEL 2.3 



INPUT 




FILE 




OUTPUT 


DEVICE 




MANAGER 




DEVICE 


INTERFACES 








INTERFACES 



LEVEL 2.2 



FILE 

SPACE 

MANAGER 




FILE 

DEVICE 

INTERFACES 




LEVEL 2.1 



INTERRUPT 

HANDLER 



FIGURE 1. THE HIERARCHY OF OPERATING SYSTEM PROCESSES 
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processes. In particular, the monitoring function and the 
input/output control functions were selected to be performed 
by processes. In designing the modules to satisfy these 
requirements and to provide the capability for 
multiprogramming-multiprocessing , nine (9) processes were 
specified. The need for additional processes to serve as 
interfaces between selected hardware devices (i.e., line 
printers, card readers, consoles, disk drives, etc.) and 
system processes was also considered. Figure 1 is the 
hierarchical ordering of the operating system processes. 

1 . Error Ha n dle r - Lev el 2.6 

In any multi-purpose operating system, there must be 
an internal method for the handling of user, systems and 
hardware generated error conditions. Corrective action may 
be accomplished by canceling the ill-behaved user process, 
terminating and then replacing a system process, or 
notifying the system operator of the problem and waiting for 
instructions. In any case, the action to be performed was 
determined by the designers of the computer system 

(including both hardware and software) with particular 
emphasis cn the precise hardware configuration. 

Since the physical machine was unspecified, a nodule 
to perform these functions was designed to simulate the 
monitoring function; however the error correction routine 
has been left undefined. Once the specific actions are 
identified, the appropriate code may be inserted (provided 
the interface requirements are not violated) . The following 
algorithm describes the basic logic of the Error Handler: 

1.1 [Wait for message] Bequest (error 
message) . 

1.2 [Interpret message] Decode the error 
message and determine the action to 
be taken. 

1.3 (Recoverable] If correctable Then 
take predetermined action Otherwise 
Go to step 1.5. 
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1.4 



[Inform operator] Release (operator 
message) and Go to step 1.1. (Notify 
the operator of the error and action 
taken.) 

1.5 [ Nonrecoverable ] Release (operator 
message) . (Notify the operator of 
the error and reguest instructions.) 

1.6 [Wait for answer] Reguest (answer) . 

1.7 [Answer received] Perform the action 
specified and Go to step 1.1 



ALGORITHM 1 ERROR HANDLER 

The "wait for an error condition", "wait for 
answer", and "notify the operator" were performed in this 
implementation through the use of the message passing 
primitives (Request ana Release) to be defined later. Since 
information was being exchanged with the operator, the Error 
Handler needed the use of an I/O device (s). To hide the 
actual manner in which this was performed and to simplify 
the I/O controllers, this service was assigned to an 
independent module — the Operator System Communicator. 

2 . O pe ra tor System Comm unicat or - L eve l 2.5 

In addition to providing services to the Error 
Handler, the Operator System Communicator was designed to 
assist the computer operator in controlling the system. The 
operator needed the ability to 'start up' a specific job; to 
add, delete or modify the system configuration (start up a 
new disk drive, delete a card reader, or modify a disk 
pack) ; or to obtain information concerning the status of 
gueues, availibility of core, etc. The Operator System 
Communicator was implemented to provide a centralized 
control point and a uniform way of obtaining system 
information or giving orders to the system. As in the case 
of the Error Handler, the full design of this module 
depended upon knowledge of the possible configuration and 
the repertoire of "operator-system" instructions. All 
messages are pas-sed via the Request and Release primitives. 
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2.1 [Wait for message] Request (operator 

I/O) . 

- 2.2 [Interpret message] Determine who 

sent the message ana the action to 
be taken. 

2.3 [From operator] Perform action 
specified, and Go to step 2.5. 

2.4 [From system] Perform the action 
specified. (i.e., pass the message 
to the operator, etc.) . 

2.5 [Answer requested] If (answer 
requested) Then Release (answer) . Go 
to step 2.1. 



ALGORITHM 2 OPERATOR SYSTEM COMMUNICATOR 



3 • In put/Outpu t Con trolle r - Lev e l 2 .4 

Since there is generally a great disparity between 
the rate of information transfer among input devices and 
main storage access time, the concept of spooling has been 
adopted to assist the system in satisfying the 
multiprogramming functional requirement. In particular, 
spooling operations utilize the services of file management 
and employ the concept of buffering (a buffer is a storage 
area used to give a better match between processor speeds 
and I/O device speeds) in accomplishing its function. 
Watson [Ref. 15] describes the I/O problem as follows: 



The I/O system must cope with a wide variety of 
devices and therefore is quite complicated at detailed 
levels of design. This complication arises because cf the 
large number of special situations which can arise in 
handling communication with each type of device. To create 
a design which is as conceptually simple as possible, the 
designer should probably isolate as many device-dependent 
characteristics as possible in separate routines (often 
called device drivers) and then interface these routines 
with mere general routines which are device-independent. 

One can recognize four major functions in handling I/O 
devices: 

1 Euffering of information transmitted between I/O 
devices, auxiliary storage and memory 

2 Proper handling of interrupts or other device to 
processor signals and their interface to the rest of 
the system 

3 Reserving and allocating I/O resources 
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4 Protection of the resources dedicated to one user or 
process fro m interference by another. 



The Input Controller was designed to "spool" user 
jobs into a file on some auxiliary device and to enter the 
job control language (JCL) and various administrative data 
into a jcb queue. The Initiator can then retrieve this data 
and create the user process. To avoid the possibility of 
••deadlocks" for file space (i.e., the Input controller gets 
blocked indefinitely for space to spool the- incoming data) , 
the responsibility for requesting file space was assigned to 
the input device interface processes. Hence, the Input 
Controller, which is device independent, receives JCL 
information, file information, etc. from the various 
interface processes, stores this information in the job 
queue and sends a message to the Initiator. 



3.1 [Wait for a message] Request 
(output) . 

3.2 [Interpret message] Determine the 
action required. 

3.3 [JCL] If (JCL or file information) 
Then store the data and Go to step 

3.1. 

3.4 [Input for Operator System 

Communicator] If (Operator input) 
Then Release (Operator I/O) and Go to 
step 3. 1. 

3.5 [EOF] If [End Of File (EOF) ] Then 
enter data in the job queue. 
Release (New Job) (to the initiator) , 
and Go to step 3.T. 

3.6 [From Operator System Communicator] 
If (Configuration Modification) Then 
take appropriate action arid Go to 
step 3.1. 



ALGORITHM 3 INPUT CONTROLLER 



In item 3.6 of the above algorithm, the message 
received by the Input Controller was from the Operator 
System Communicator. The decision was made to have the Input 
Controller create the interface processes for the input 
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devices since it bad to maintain separate files tc store 
incoming data from each device. Thus, if the operator 
entered the command to start up another card reader, the 
Communicator would instruct the Input Controller to do it, 
wait for an answer that it had been done, and then inform 
the operator. 



The Output Controller was designed to provide a 
uniform, generalized technique for handling the various 
reguested output operations. In keeping the design simple 
and device independent, the Controller was implemented to 
utilize the services of the -device interface processes and 
the File Manager. In particular, the Output Controller, 
upon receiving a reguest to output a message, assigned a 
device and then passed the information to the device 
interface process. In the case of printing files, the data 
was passed from the File Manager via the Controller tc the 
preassigned (maybe user or system specified) interface 
process. In the event a device was not available, the 
Controller gueued the output request. 



4.1 [Wait for message] Request (output 
message) . 

4.2 [Interpret message] Determine the 
action to be taken. 

4.3 [Operator System Communicator 

message] Take specified action and 
Go to step 4.1. (i.e.. Release 

message to the operator, add a new 
device, etc.). 

4.4 [File Manager message] Release [full 

buffer) and Go to step 4.1. (pass 

the information to be output to* the 
appropriate device interface 

process) . 

4.5 [Terminator message] If (Device 

available) Then get data from print 
queue, take action to output the 
gob, and Go to step 4.1; Otherwise 
queue the print job and Go to step 



ALGORITHM 4 OUTPUT CONTROLLER 
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4 



. Initiator - Level 2. 4 

One of the principle functions of the operating 
system was to prepare a user program for execution. From the 
JCL and file information stored in the job queue, the system 
determined and then allocated the initial resources reguired 
by the job. In so doing, the user job was transformed into a 
process which was assigned an internal identification, given 
resources or access to them, and entered on the "ready 
active" gueue (a list of processes waiting for a processor) . 
Furthermore, a system table [Process Control Block (PCB) ] 
containing management information about the job was 
established for use by the operating system as the process 
proceeded through execution. The Initiator was designed and 
implemented to prepare the user program for execution. 

5.1 [Get internal name] Request (Inarae) 

(Wait for space for a PCB if 
necessary) . 

5.2 [Get a job from the job gueue] 

Request (New job) . 

5.3 [Interpret JCL] Determine which 
resources are reguired by the 
process and verify that this process 
may have access. 

5.4 [Obtain reguired resources] 

For (eacn reguired resource! Do 
Request (resource) . 

5.5 [Create Process Control Block] 

Call Create PCB. 

5.6 [Activate the process] Call Activate 
(new process) . 

5.7 [Free job queue space] Release(Job 
gueue) . 

5.8 [Finished] Go to step 5.1. 

ALGORITHM 5 INITIATOR 

5- Termina to r - Le v el 2.4 

When a process completes execution (either normally 
or abnormally) , the various resources created by the process 
or assigned to it were destroyed or deallocated. 
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respectively. Additionally, any output requirements were 
satisfied, including operator notification if necessary. 
Since in the design of the operating system, both system and 
user processes were given the ability to create subordinate 
processes, the termination of the parent process necessita- 
ted the termination of its progeny (dependent processes) . 
The Terminator was designed to perform these functions when 
notified by the system or user to terminate a process. 

6.1 

6.2 

6.3 

6.4 

6.5 

6.6 

6.7 

6.8 

ALGORITHM 6 TERMINATOR 

6 . ri le Man ageme nt - Leve ls 2.3 and 2 .2 

The design and subsequent implementation of rile 
management techniques simplified the development cf a 
multiprogramming operating system. Serving as an interface 
between processes and the auxiliary storage devices (disks, 
drums, tape drives) , the File Manager was designed to 
perform such functions as controlling access to files, 
creating and destroying files, opening and closing files, 
and providing backup and restoration services, if possible. 
Additionally, characteristics of the file, i.e., record 



[Wait for termination message] 
Request (termination message) . 

[Verify message] If (Invalid) Then 
Release (Error message) and Go, to 
step 6. 1. 

[Compile list of processes] Insert 

S rocess to be terminated and all 
ependent processes on the list and 
i <- n (number of items in the 
list) . 

[Select process- for termination] 
Term_Process <- list (i) . 

[Print output file] Release (Output) . 

[Free all resources] Deallocate 
resources. 



[ Free 
name) . 



Internal Name] Release (job 



[Finished] i <- i-1; If i = 0 Then 
Go to step 6.1 Otherwise Go to step 

6.4. 



29 



size, data storage methods, etc., and of the device were 
hidden from the Manager to eliminate file type and device 
dependencies. 



In multiprogramming systems, simultaneous reguests 
from separate processes for access to a shared file reguired 
the file Manager to determine if multiple access can be 
permitted. since the reguests may be for read access, write 
access, cr both, the File Manager was implemented to satisfy 
multiple read access requests but restricted write access to 
only cne process at a time. As in the case of the Input and 
Output controllers, the File Manager was assigned the 
additional function of creating, destroying and supervising 
the device interface processes which perform the reading and 
writing of data. 



7.1 [Wait for a message] Request (File 
Operation) . 

7.2 [Interpret message] Determine action 
to be taken. 

7.3 [Configuration modification] If 
(configuration modification) Then 
perform required action and Go to 
step 7.1. (From Operator System 
Communicator - add, delete or modify 
the status of a storage device) , 

7.4 [New file added] If (new file) Then 
update master list of known files 
and Go to step 7.1. (From the File 
Space Manager - a new file has been 
added) . 

7.5 [Directory information] If 

(directory information) Then update 
directory and release available 
space to the File Space Manager as 
necessary and Go to step 7.1. (From 
an Interface Process when the 
storage device is added to the 
system) . 

7.6 [Operation on a file] If (file 
operation) Then [If (access allowed) 
Then perform operation Otherwise 
Release (Error message) ] Go to step 
7.1. (A process has requested a file 
read, write, open, close, etc. The 
access check can include deadlock 
checks as necessary) . 



ALGORITHM 7 FILE MANAGER 
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Hhen a process requests access to a file, the File 
Manager tested for potential deadlock situations (a deadlock 
occurs when process A had been given write access to file A, 
process 2 had been given write access to file B, and then 
processes 1 and 2 request access to files B and A, respec- 
tively, and consequently, become blocked indefinitely) . 
Many solutions have been presented to solve the deadlock 
problem, some of which include: requesting and then 
assigning all resources at the time of process creation, the 
concept of "sacrificing", and more complex schemes [Refs. 16 
and 17]. The concept of "sacrificing" was implemented in 
this design. In particular, once a process reguested a 
write access which was not immediately serviceable or had 
write access and then requested read access which was not 
serviceable, all file resources owned by this process became 
preemptable. In this scheme, the user must be careful to 
reguest file access at points where preemption does not 
prohibit recovery. 

In creating a file, available storage space was 
found, tagged as being non-a vailable and reserved for access 
by the process requesting a new file. To prevent the File 
Manager from being blocked indefinitely while attempting to 
service a request for space allocation, the responsibility 
for this function has been assigned to a separate process. 
File Space Manager. Thus, processes desiring a new file made 
their reguest to this process rather than the File Manager. 

The File Space Manager was designed to manage the 
space available in auxiliary storage and to create new files 
upon request by a process. The allocation-deallocation and 
accounting functions were implemented as a coordinated 
operation with the File Manager. In particular, the File 
Manager was assigned the responsibilty to determine the 
change in available space as files were destroyed or devices 
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were added, removed or modified (change in disk pack, tape, 
etc.) and then, to inform the Space Manager of the change 
and its effect on available space. 



8.1 [Wait for a message] Reguest (space 
operation) . 

8.2 [Interpret message] Determine action 
to be taken. 

8.3 [System configuration change] 

If (Device deleted) Then Go to step 
8.1 Otherwise If (Outstanding space 
requests) Then Go to step 3.7. 

8.4 [Space freed] If (space freed and 
outstanding space requests) Then Go 
to step 8.7; Otherwise Go to step 
8.1 (from rile Manager - a file has 
been destroyed) . 

8.5 [Permanent file] If (permanent file) 
Then [ If (space available) Then 
update available space and Go to 
step 8.7 Otherwise Release (Error 
message) and Go to step 8.1. 

8.6 [Temporary file] If (temporary file 
Then [ While ( space not available) 
Request (space from File manager) ]; 
Upaate available temporary space. 

8.7 [Create a file] Get an RCB ; update 

space available; update file 
directory for the selected storage 
device: and Release (answer) to the 

requesting process; Go to step 8.1. 



ALGORITHM 8 FILE SPACE MANAGER 



Upon fielding a request from a process to create a 
temporary file which required more space then what was 
available, the Space Manager was blocked until a change in 
the system occurred or a previously created file was 
destroyed. When space was not available for a permanent 
file, an error condition was set and the Space Manager 
proceeded to service other requests. 

7 • In ter rupt Ha nd ler - Le ve l 2.1 * 

The interrupt concept, a second and third generation 
advance, was devised to facilitate multiprogramming 
operations. Sayers [Ref. 18] defined an interrupt as "a 
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break in the normal flow of program execution,.. usually 
caused by a hardware-generated signal, such as an I/O event, 
a program error, a machine error, or an operator-initiated 
signal." The interrupt was used primarily to compensate for 
the speed differential between I/O operations and central 
processing by permitting the processor to continue execution 
of a process while servicing the I/O reguests of other 
processes. for example, a process was blocked upon 

reguesting I/O, the I/O operation was started and the 
processor was allocated to another process. Once the I/O 
operation was completed, the system was notified via an 
interrupt signal. At this point, the process which was 
blocked on this I/O operation was permitted to preempt the 
current process and resume execution, or was placed in a 
"ready-active" queue to wait for a processor. 

The Interrupt Handler, as implemented in this 

operating system, was designed to service various interrupts 
by determining which interrupt was set and performing any 
predefined action. The Interrupt Handler, therefore, served 
as an interface between the hardware devices and the 
processes using these devices. When an interrupt occured, 
the Handler was invoked directly (by hardware) to service 
the interrupt. In particular, the state of the current 
process was saved, the Handler released a message tc the 
process waiting for the interrupt and then, control returned 
to the interrupted process. 

9.1 [Wait for interrupt] Wait to be 
invoked by hardware. 

9.2 [Save state of current process] 

Save_process <- Curr ent_process ; 

Call Save_state (Current_proccss) . 

9.3 [Reset Current_process ] 

Current_Process <- Iuterrupt_Hndlr . 

9.4 [Determine action] Identify 

interrupt and reguired action. 

(i.e., which process is concerned 
with this interrupt and the proper 
message semaphore) . 
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9.5 



[Send message] Release (me&sage to 
process) . 

9.6 r Restore the preempted process] Call 
Restore state (Save process) and Go 
to step 9.1. 

ALGORITHM 9 INTERRUPT HANDLER 

B. OPERATING SYSTEM PRIMITIVES - LEVEL 1 

In a multiprogramming, multiprocessing environment, 
mechanisms must he provided for the synchronization of 
processes during information transfer; for allocation and 
deallocation of resources; for process creation, control and 
termination; and for protection of critical sections of 
corde, of data structures and of resources. The primitives 
were designed to perform these functions. 

In particular, the technique for interprocess 
communication was defined through the use of the Request, 
Release and Allocator primitives; processor allocation was 
achieved by the Scheduler primitive. The primitives 
Savestate, Restorestate, Interrupt Enabler and Interrupt 
Disabier assist in process control and protection. Finally, 
the various system data structures (i.e.. Resource Control 
Block - ECB, Process Control Block - PCB, etc.) were 
"hidden" frcm the rest of the system by providing the 
primitives RCB Handler and PCB Structures. 

A hierarchical organization of the primitives was 
defined in that various primitives require the services of 
other ones. For example, all primitives invoke the 
Interrupt Disabier at the start of execution and the 
Interrupt Enabler upon completing execution. This was 
necessary to preclude preemption while executing critical 
sections of code. Figure 2 represents the primitive 

hierarchy . 
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at any point in time. Request and Release messages that 
cannot be immediately matched are gueued on the message 
semaphore and ordered by the priority of the invoking 
process. 

TABLE II. MESSAGE BUFFER 

PURPOSE 

Internal name of the process releasing 
a message. 

Indicates if an answer to the release 
is required. 

Internal identification of the message 
class identifier to be used in the 
answer . 

Identifies the input/output buffer. 

Used to pass action identifiers (inter- 
face variables) ; device, process, 
resource external names; and adminis- 
trative data. 

Bequest and Release may be considered as a software 
interrupt scheme utilized by processes. A process invoking 
Reguest "enables the interrupt" associated with the 
specified message semaphore and a process invoking Release 
"sets the interrupt". After a Request has been matched with 
a Release, the "message semaphore interrupt" is disabled 
until Reguest is invoked again with that semaphore. 

The ability to Release/Request a message to/from a 
specific process was incorporated to provide a usable system 
with a reasonable number of message semaphores. For 
example, to perform a file operation using the services of 
the File Manager, process A only needs the message semaphore 
($FILEOF) and the message format utilized by the File 
Manager; no ether information is ne’eded. Process A releases 
a JFILEOF message (restricted to the File Manager for 
reguests) and specifies the operation desired. If an answer 
is reguired for synchronization, the message semaphore 
process A will use in the Reguest is also specified. When a 



F IELD 

RELEASOR 

ANSWER-REQUIRED 

MESSAGE-SEMAEHORE 

BUFFER LOCATION 
DATA FIELDS 
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Beguest from the File Manager is matched with the F.elease 
from process A, the message data and A's internal name are 
provided to the File Manager. Upon completion of the 
desired operation, a message will be Beleased to process A 
specifically, on the desired semaphore. In this manner, 
several processes may be blocked with a Request on a single 
message semaphore, such as $WAIT; and another process may 
Belease messages to a specific process, not necessarily the 
process at the head of the queue. 



10. 1 
10.2 



10.3 



10.4 

10.5 



[Disable Interrupts] 

Call Interrupt_Disabler . 

[Verify semaphore] 

Call RCB Data ("validate") . 

If (Invalid) Then set error code and 
Go to step 10.6. 

[Verify authorization to access] 
Call PCB_Data ("access") ; 

If (Unauthorized) Then Set error 
code and Go to step 10.6. 

[Determine necessary action] 
call Allocator ("data", Match) . 



[If a match is found then activate 
the process] If (Match) Then 
Call PCB_Daua ("get priority", PRI) ; 



Call £CB_Data ("put status" .READYA) ; 
Call PCB_Data ("get type - System or 



User ",Type_Proc) ; 

Call RCB Put_Queue (PIName, 
Ready A Que, Type Process, 
Priority) : 

Call Scheduler. 



10.6 [Enable Interrupts] 

Call In terrupt_Enabler . 



AIGORITHM 10 RELEASE 



11.1 [Disable Interrupts] 

Call In terrupt_Disabler . 

11.2 [Verify semaphore] 

Call RCS Data ("validate") ; If 
(Invalid! Then set error code and Go 
to step 11.6. 

11.3 [Verify authorization to access] 

Call PCD Data ("access") ; 

If (Unauthorized) Then set error 
code and Go to step 11.6. 

11.4 [Determine necessary action] 

Call Allocator ("data", Match) . 
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11.5 



[Test for a match] If (Match) Then 
Go to step 11.7. 

11.6 [Block the process] 

Call PC3_Data (’'status = BLOCKED''); 
Call Savestate ("invoking process"); 
Call Scheduler. 

11.7 [Enable Interrupts] 

Call Interrupt^Enabler . 

ALGORITHM 11 REQUEST 



The Allocator was designed to perform the functions 
common to Reguest and Release: matching messages or queueing 
messages if no match is found. The entry point RCB_Match to 
RCB Structures was implemented to simplify the Allocater and 
hide the data structure. 



12.1 [Check for a match ] 

Call RCB_Match ("data") . 

12.2 [Match and a Request ] If (Match & 
Request) Then Do Transfer message to 
Requestor's buffer; and Return. 

12.3 [Match ajid a Release] If (Match & 
Release) Then Do; Transfer message 
to the Blocked Process' Buffer; 
Enter Releasor's internal name in 
the buffer; and Return. 

12.4 [No_Match and a Release] If 
(No_Katch & Release) then Allocate a 
temporary message buffer; and Enter 
the message data into that buffer. 

12.5 [No match-queue message by Priority] 
Call PCD Data ("get priority") ; 

Call RCTd PutQue ("message, priority, 
and semapHore") ; Return. 



ALGORITHM 12 ALLOCATOR 



2 . Primiti ve - Sched uler - Leve l 1. 3 

The processor which is freed when a process is 
blocked must be reassigned to another • process to efficiently 
use the processor (s) in a multiprogramming environment. 
Many scheduling algorithms have been proposed; such faptors 
as the priority and the past I/O behavior of processes can 
be used to determine which process should be scheduled, or 
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if a currently running process should be preempted. Other 
technigues include first-in-first-out (FIFO) scheduling and 
round-robin scheduling, in vhich each process is allocated a 
time-slice on a recurring basis. The scheduling algorithm 
is usually tailored to achieve the goal of the system, such 
as maximizing throughput in a batch system, or immediately 
starting critical processes in a command/control system. 
Since the Scheduler is run on the designated operating 
system processor, that processor must be started last to 
preclude preempting the Scheduler, 



13.1 [Initialize variables] 

Processor <— User_Processor ( 1) ; 

Que <— User; i <- 2 ; 

Cycle_f inished <— False. 

13.2 [Check processor] If (Processor is 
not allocated) Then Go to step 13.6. 

13.3 [Check the queue] Call RCB Find ("get 
priority of the top element in Que) ; 
If (Que is- empty) Then Go to step 

13 . 7 . 

13.4 [Check for preemption] If 

(preemption is desirable) Then Call 
Savestate (Current Process, Processor) 
Otherwise Go to sfep 13.7. 

13.5 [Change status and queue current 
process] Call PCB_Data ("pu t status 
of current process to KEDYA") ; Call 
RCB Put Que ("insert current process 
on £Jue"7. 

13.6 [Start-up highest priority process] 

Call RCB Get que ("process at the 

head of Que") ; 

Call PCB Data ("put status of New 
Process to RUNNING") ; 

Call Restorestate (New Process, 

Processor) . 

13.7 [Check for a new cycle] 

If (Cycle_Finished) Then Go to step 



13.8 [Select next processor] 

If (more user processors) Then Do; 
Processor <— User_processor (i) ; 
i <— i + 1 ; End; Else Do; 

Processor <— System_Processor ; 

Que <— CS_Que: 

Cycle_Fimshed <- True; End. 

13.9 [Loop] Go to step 13.2. 



ALGORITHM 13 SCHEDULER- 
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3 • Devi ce Director y - L e vel 1.3 

The Device Directory primitive was designed to 
interface with the Operator System Communicator, Input 
Controller, Output Controller and File Manager processes to 
provide information concerning system configuration, I/O 
devices and device interface processes. During system 
initialization and, when required, for system 
reconfiguration, this primitive would be invoked tc obtain 
the data used in creating Resource Control Blocks for the 
devices and Process Control Blocks for the interface 
processes. 

The Directory was designed to store two classes of 
data; system configuration (menu) and resource data. System 
configuration data defines several possible configurations 
which may be selected at system "start-up". For example. 
Menu A may identify Cardreaderl, Lineprinter3, Console2, 
etc. and Menu B identifies Cardreader2, Lineprinter3, 
Consolel , etc. The resource data contained in the Directory 
may consist of the interface process's external name, code 
location, priority, etc. and the device's access gualifier 
(shared or private) , blocksize (buffer length) , interrupt 
identifier, and so forth. This data is used by the Operator 
System Communicator to identify the devices to be activated 
and, hence, the message to be sent to the appropriate data 
transfer controller (Input Controller, Output Controller or 
File Manager) . The various data transfer controllers use 
this information to create the interface process and device 
RCE. The Device Directory primitive provides a centralized 
and standard method for accessing the reyuired information 
to select, activate, and modify the system configuration; 
conseguently , a modification to the current functions of and 
services provided by the operating system. 
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14.1 


[Disable the interrupts ] 
call Interrupt_Disabler . 






14.2 


[Identify information type] If 
Menu Data Then Look Up ("menu"); 
Otherwise Look Up ( "device") . 




14.3 


(Entry found] If Entry Found 
transfer data Otherwise set 
code. 


Then 

error 




14.4 


[Enable the interrupts] 
Call Interrupt_Enabler . 






ALGORITHM 14 DEVICE DIRECTORY 






4 . Da ta_ 


Structures - Level 1.2 






The 


data structures primitives 


were 


designed 


primarily to 


eliminate the data dependencies 


and 


alleviate 



the critical section problem that has plagued many second 
and third generation computer operating systems. For 
example, concurrent access to a common data element was 
prevented by designing these modules as ncn-interr uptable 
primitives and defining interface variables through which 
the processes and other primitives access or store data in 
the structures. 

Every process and resource is represented in the 
system by its state, identification and accounting/admin- 
istrative information. A corresponding data structure was 
defined to contain this descriptor data for use in basic 
process and resource operations (i.e., scheduling, message 
handling, etc.) . Tables III agd IV represent a flexible and 
general purpose model structure for process and resource 
descriptors, respectively. For example, a field tray be 
added or deleted provided the interface variable associated 
with the field is also appropriately modified. If a data 
type were changed, code to convert the data to the type 
expected by other modules need only be added to the data 
structure module. The Resource Control Block was designed 
to be functional for the types of resources identified 
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TABLE III. 

FIE LD ’ 

EXTERNAL NAME 
PARENT 

CHILD 

LEFT SIBLING 
RIGHT SIELING 

PAGE TABLE POINTER 

FILE-SHARE- WRITE 
COUNTER 

PROCESS TYPE 
RESOURCE VECTOR 

FILE ACCESS STATUS 

MESSAGE EUFFER 
STATUS 

PRIORITY 

QUANTUM 

CYCLE TIME 
PROCESSOR 
STATE VECTOR 



PROCESS CONTROL BLOCK DATA STRUCTURE 



PURPOSE 



User/operator specified process naire. 

Internal name of process which created 
this process or which is the parent of 
a sibling which created this process. 

Internal name of a dependent process 
created by this process or another child 
of this process. 

Link to related independent processes. 
Value is a process internal name. 

Link to related independent processes. 
Value is a process internal name. 

Address of the process's Page Table. 

Counter of the number of outstanding 
file open reguests for write access to a 
non-owned, shared file. 

Identifies system versus user process. 

Identifies resources accessible or 
acquired . 

Identifies the process as a reader or 
writer* or if it is in a sacrificed 
condition. 

Pointer to the process's message buffer. 

The status of the process in the system; 
i.e., Blocked, Running, Ready, etc. 

Identifies relative importance of the 
process; used in queueing and scheduling 
operations. 

Specified time interval in which a 

f rocessor is assigned to this process 
or execution. 

Reschedule time period for a recurrent 
process . 

Internal name of the processor allocated 
to the process for execution. 

Save area for the initial or last state 
of execution; i.e., instruction counter 
and processor register values. 
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TAELE IV 



RESOURCE CONTROL BLOCK BATA STRUCTURE 



EIELD 


EXAMPLE RESOURCE 


TYPES AND 


FIELD USE 




SEMAPHORE 


DEVICE 


STORAGE 


FILES 


ASSIGNED 


T. or F. 


T. or F. 


T. or F. 


T. or F. 


CREATOR 


system 
proc. iid 


system 
proc. iid 


system 
proc. iid 


system 
proc. iid 


OHNER 

\ 


creator 


interface 
proc. iid 


File 

Manager 


proc. iid 


EXTERNAL NAME 


— 


— 


— 


— 


DEVICE STATUS 


N/A 


active or 
hold 


active or 
hold 


active or 
hold 


DEVICE IID 


N/A 


N/A 


RCB Nr. 


RCB Nr. 


SHARED-PRIVAIE 


S. or P. 


S. or p. 


S. or P. 


S . or p . 


COUNTER-SIZE 


counter 


number 


space 

available 


file 

length 


STORAGE DEVICE 
NAME 


N/A 


external 

name 


N/A 


external 

name 


OPEN FILE 


N/A 


N/A 


N/A 


Read/Krite 


FILE TYPE 


N/A 


N/A 


Temporary 

Permanent 


Temporary 

Permanent 

both 


LEFT QUEUE 
POINTER 


Request 

messages 


process 

accessing 


not used 


process 

accessing 


RIGHT QUEUE 
POINTER 


Release 

messages 


process 
waiting 
for access 


file 

creation 

requests 


file 

open 

reguests 





SAMPLE 


LEFT/RIGHT 


QUEUE 








FROM 


message 

addressor 


proc. 


iid 


proc . 


iid 


proc. 


iid 


TO 


message 

addressee 


messac 

semapf 


[e 

tore 


messa 

semap 


Sore 


messa 

semap 


ce 

Bore 


PRIORITY 


proc. pri. 


proc. 


pri. 


proc. 


pri. 


proc. 


pri. 


FILE DATA 


N/A 


N/A 




file 


iid 


Read/Krite 


MESSAGE 

POINTER 


— 


N/A 




N/A 




N/A 




UP- LINK 


— 


— 




-- 


- 


— 




DOWN-LINK 


— 


— - 




— 




— 





43 



during the design of the operating system; i.e., semaphores 
(message class identifiers) , devices (readers, writers, 
consoles, etc.), secondary storage devices (tapes, drums, 
disk packs, etc.), and files. 



15. 1 


[Disable interrupts] 
Call Interrupt_Disabler . 


15. 2 


[Create a PCB] 

If (action = create PCB) Then 
Begin. 


15.2.1 


[Check for space and authorization] 
If ( (space available) & (Process has 
authorization)) Then assign a PCB 
Number and enter data passed; 

Else set Error code. 


15.2.2 


[Finished] Go to step 15.8; End. 


15.3 


[Find PCB Number corresponding to an 
External Name] 

If (action = Find PIName) Then Do: 

Search active PCBs for specified 
external name; If (found) Then 
PIName Parameter <- PCB Number; 

Else PIName Parameter 0; Go to 

step 15.8; End. 


15.4 


[Check validity of PCB Number] 

If (PCB Number is invalid) Then Do; 
Set Error code; go to step 15.8; 
End. 


15.5 


[Free a PCB] 

If (action = Release PCB) Then 

Begin. 


15.5.1 


[Check authorization] 

If (Process has authorization) Then 
set specified PCB status to 

inactive; Else set Error code. 


15,5.2 


[Finished] Go to step 15. 8-; End. 


15.6. 


[Put data into a PCB] 

If (action = Put_Data) Then Begin. 


15.6,1 


[Check authorization] 

If (Process has authorization) Then 
store the data; Else set Error code. 


15.6.2 


[Finished] Go to step 15.8; End. 


15.7 


[Get data from a PCB] 
if (action = Get Data) Then 
Data_Pararaeter <- Desired PCB Field. 


15. 8 


[Enable interrupts] 
Call Interr upt_Enabler. 



ALGORITHM 15 PCD STRUCTURES 
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16. 1 



16.2 



16.2.1 



16.2.2 

16.3 



16.3.1 



16.3.2 



16.3.3 

16.4 

16.5 

16.6 

16.7 

16.8 



16.8.1 



16.8.2 



t Disable interrupts! 
all Iaterr upt_Disabler . 

[Create an RCB ] 

If (action = Create_RCB) Then Begin. 

[Check if space is available] 

If (space for specified RCE type is 

available) Then 

assign RCB and enter data; 

Else set Error code. 



[Finished] Go to step 16.14. 

[ Find an RCB Number corresponding to 
an External Name] 

If (action = Fina_RIName) Then 
Begin. 

[Search active RCBs] 

Search active RCBs for the External 
Name specified. 

[Return value] 

If (External Name is found) Then 
EIName Parameter <- RIName; 

Else RlName^Parameter <- 0. 

[Finished] Go to step 16.14; End. 

[Check validity of RCB Number] 

If (Invalid RCB Number) Then Do; 
set Error code:' r 
go to step 16.14; End. 

[Free an RCB] 

If (action = Release_RCE) Then set 
RCB_Number specified to unassigned. 

[Enter data in an RCB] 

If (action = Put Data) Then 
enter specified data element. 

[Retrieve data from an RCB] 

If (action = Get_Data) Tnen 
Data_Parameter <- desired RCB field. 

[Find a Process in a queue] 

If (action = Find_Proc) Then Begin. 

[ Search the specified Queue for the 
specified PIName] 

Search Queue for PIName: 

If (found) Then return the data and 
queue position; 

Else return "Process not found". 
[Finished] Go to step 16.14. 



1 

i 

i 

i 
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16.9 



16.9.1 



16. 9.2 
16. 1C 

16. 1 1 
16.11.1 



16.11.2 

16.12 



16.12.1 



16. 12.2 
16. 13 

16. 13.1 



16.13.2 
16. 14 



[Find the Process at the specified 

f osition in a QueueJ 
f (action = Find At Position) Then 
Begin. * r ~ 

[ Find the Queue element at the 
specified position] 

Find the specified Queue element; 

If ( specified Queue element is 
active) Then return data in the 
Queue element: Else return "Queue 

element not active". 

[Finished] Go to step 16.14; End. 

[Enter an element in a Queue] 

If (action = Put_Que) Then enter the 
data in the specified Queue 

[Remove an element from a gueue] 

If (action = Get_Que) Then Begin. 

[Find the specified gueue element ] 
Find Queue element; 

If (Queue element is found) Then 
Remove the specified Queue element; 
Else return "element not found". 

[Finished] Go to step 16.14; End. 

[Transfer a gueue element from the 
specified gueue to the opposite 
queue] If (action = Transf er_Que) 
Then Begin. 

[Find the specified gueue element] 
Find Queue element; 

If (Queue element is found) Then Do; 
Remove Queue element; Insert Queue 
element on the opposite queue: End; 
Else return "element not fcund". 



[Finished] Go to step 16.14; End. 

[Compare specified data with queue 
element data in a specified gueue] 
If (action = Watch) Then Begin. 

[Check each active element in the 

§ ueue foe compatible data ] 
atch_Found <- False; 

For i = (first queue element) Until 
(Last gueue element) Do; 
compare data: 

If (compatible) Then Do; 

Match Found <- True; exit For loop; 
End; End: 

If (Match_Found) Then Remove gueue 
element and return data: 

Else return "match not found". 

[ Finished ] End. 

[ Enable interrupts] 

Call Interr upt_Enaoler. 



ALGORITHM 16 RCB HANDLER 
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5 . Prim it iv e-H ardware Int er fa ce ’• Lev el 1.1 



A processor has a normal complement of registers 
used to fetch, select and execute instructions, and a 
mechanism for interrupt recognition. To provide to the 
operating system the facilities for altering process 
execution (i.e., preempt and schedule/reschedule processes) 
and to protect vital operations on commonly accessed data 
structures, a set of primitives have been designed to enable 
and disable interrupts and to save, set and reset the 
processor registers. The primitives, Interrupt_Enabler , 
Interrupt_Disabler , Savestate and Eestor estate , defined 
below, perform these functions when invoked by processes and 
other primitives. 



17.1 [Specific or all interrupts] 

If (Interrupt# = 0) Then Enable all 
the interrupts in the current 
Savevector; Otherwise Enable 
Interrupt# . 



ALGORITHM 17 INTERRUPT ENABLER 



18.1 [Specific or all interrupts] 

If (Interrupt# = 0) Then Disable all 
interrupts and save status in 
Savevector; Otherwise Disable 
Interrupt#. 



ALGORITHM 18 INTERRUPT DISABLER 



19.1 [Disable all interrupts] 

Call Interr upt_Disabler . 

19.2 [Get copy of processor registers] 
Temp_regs = CPUREGS (Processor#) . 

19.3 [Save copy in PCB] 

Call PCB_Data ("temp^egs", process) . 

19.4 [Enable the interrupts] 

Call Interrupt_Enabler . 



ALGORITHM 19 SAVESTATE 
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20 . 1 



[Disable all interrupts] 

Call Interrupt^Disabler . 

20.2 [Get copy of saved Statevector] 
call PCR_Data ("temp_Regs", Process) . 

20.3 [Set processor registers] 

CPUREGS (Processor#) = Temp_Regs. 

20.4 [Enable the interrupts] 
call Xnterrupt_Enabler . 



ALGORITHM 20 RESTORESTATE 
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IV. DESIGN VALIDATION 



This chapter is concerned with implementation of the 
modules specified in Chapter III, testing the design 
correctness and demonstrating the feasibility of the 
proposed operating system model. Time constraints precluded 
the development of the entire system, so the decision was 
made to verify selected functions (i.e., interprocess 
communication and synchronization using semaphores and 
messages) . For example, the Error Handler was implemented 
to receive error messages and to generate messages for the 
system operator, but error correction routines were left 
undefined. Similarly, the Operator System Communicator 
module was provided a minimum set of control message codes 
to identify selected actions (add or delete a device, etc.) 
and to handle message passing. Certain primitives, 
including these which perform the primary, functions of 
dynamic creation and control of processes and resources as 
well as interprocess communication, were implemented in 
detail. The criterion that modules were to be independent 
allowed the implementation to proceed along a path through 
the processes to the primitives with incomplete or partially 
developed modules at several nodes. Model testing was 
performed using three additional modules: a hardware 
simulator, an initialization procedure and a preprocessor 
macro. The Formal Module Specifications with accompanying 
PL/I implementations, and the test modules are described in 
appendices C and D, respectively. 

A. THE HARDWARE SIMULATOR 

The Hardware Driver module was designed to perform 
hardware functions such as recognition of interrupts and 
execution of code at an address specified by the instruction 
counter. Additionally, code was included to create the 
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desired system state so that system behavior could be 
validated. 

One of the processor "registers" was used as an 
instruction counter to indicate the current status of 
program execution and another "register" was used to 
identify the process which was scheduled to execute. An 
integer mapping was used to identify the processes (i.e., 
the Error Handler was identified as process one (1) , the 
Operator System Communicator as process two (2), etc.). The 
process identification and instruction counter were 
separated tc avoid encoding and decoding information in the 
Hardware Driver, and to allow the model to be expandable to 
simulate paging. 

B. THE INITIALIZATION MODULE 

A special module was implemented for initializing 
interface variables and for creating the environment 
necessary to start up the system. PCB’s were created for 
the operating system processes as were the semaphore ECB's 
they reguired for interprocess communication. The 
initialization procedure in the PCB Structures module was 
used to create the PCB for the Error Handler; the PCB's for 
the remaining system processes were created dynamically in 
the Initialization routine with the Error Handler identified 
as the running process. Message and I/O buffers were 
allocated and assigned to each of the system processes, and 
the internal identification of the resources reguired by 
each process were entered in their respective access 
vectors . 

The initialization process could have teen inpleaented 
Using PL/I initial attributes (initializing variables at 
compile time) within the various modules. However, in 
consonance with the Decision Hiding Criteria, the initial- 
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ization of the interface variables was implemented in a sep- 
arate module. Additionally, the initial configuration was 
more easily modified during the design and testing phase. 

C. THE PREPROCESSOR MACHO 

A preprocessor macro (SIMULTB) was used to adapt the 
PL/I modules for testing. Simulation interrupt points 
(SIM_INTEBRUPT_PTs) were placed in the modules where a 
process might be blocked (i.e., after invoking the primitive 
Beguest) . The macro was implemented to include the code 
necessary to generate a label at the selected interrupt 
points, set the simulation instruction counter tc the 
appropriate value and exit the module. The additional 
statements SIM_STAKT and SIM_END were necessary to generate 
the code to initialize the simulation and generate 
declarations . 

D. TESTS OF SELECTEE OPERATING SYSTEM FUNCTIONS 

Selected system processes were implemented to verify 
interprocess communication techniques. Since the test 
program required to realistically demonstrate this function 
would encompass the operations performed by Reguest, 
Release, Allocator, PCB Structures and BCE Handler, these 
primitives were implemented in detail to provide a basis for 
testing the model. Subsequently, test programs were 
designed and implemented to assure the correctness of the 
data storage and retrieval operations, gueue manipulation 
techniques, and message handling procedures. 

In particular, the Initialization Module was invoked to 
initialize the interface variables, establish the PCB's for 
the selected processes and to create BCE's for the message 
class identifiers (semaphores) . Once the initial 
environment was established, the ability to send messages to 
a specific process was tested by multiple invocations of 
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Release with a specific semaphore, a varying addressee, and 
a unigue message.. Reguest was then invoked with the same 
semaphore and both specific and general addressees to verify 
the logic of Release, Allocator and RCB Structures. The 
roles of Release and Reguest were then reversed. The 
primitives were tested in a similar manner using messages 
with general addressees. 

Having successfully tested these primitives, the 
Scheduler primitive and the Hardware Driver were implemented 
to schedule and simulate running the selected system 
processes. In particular, a test program was included in 
the Hardware Driver to simulate the system operator entering 
commands to add an input device, an output device, and a 
disk unit. These messages were released to the Input 
Controller to be passed to the Operator System Communicator. 
The system processes, upon being selected for execution and 
then invoked by the Hardware Driver, initiated a Reguest for 
a message. Since there was a matching Release on the gueue 
for the Input Controller, it was received, interpreted and 
passed to the Operator System Communicator' which in turn 
received and interpreted the message. The simulation 
continued until the initial three messages released by the 
Hardware Driver and the subseguent responses were received 
by the appropriate system processes. 

The write statements generated by the Preprocessor Macro 
were used to trace the flow of messages from the Input 
Controller to the Operator System Communicator, and from 
that process to the Input Controller, Output Controller and 
File Manager. The logic used to create the interface 
processes was not validated; only the sequence in which the 
messages were requested, released and received was verified. 
Message flow to the Error Handler was also demonstrated 
during the preliminary system tests; however, comprehensive 
error generation and validation was not accomplished. 
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V. SUMMAff Y AND RE COM M END ATIONS 



The emergence of sophisticated, versatile computer 
systems has resulted in the need for operating systems which 
are efficient, adaptable, maintainable and general purpose. 
Adaptability permits expansion or modification within 
reasonable cost and time constraints. Maintainability makes 
system error detection and correction more feasible. 
Generality must exist if the operating system is to be 
useful to the many classes of potential users. 

A. SUHMABY 

As presented in Chapter II, the first step in the design 
of an operating system was the identification and 
specification of the overall system behavior in a 
hardware-software environment. Before specifying and 
implementing the system modules, a set of primary functions 
were postulated and the design was then carried cut by 
employing the techniques of Structured Programming, Decision 
Hiding and Hierarchical Ordering. At each level of 
development, new functions were identified and the decision 
was made to either implement the functions within the scope 
of the current module being designed or to implement it in a 
separate module. The principle consideration for specifying 
new modules was the need for having one module perform 
common services for the other modules, thus reducing the 
system complexity. 

The modules were grouped into two classes (processes and 
primitives) and ordered hierarchically. As the design 
proceeded, hardware dependencies were identified and program 
stubs were inserted to identify the areas of incomplete 
specification. However, the functions to be performed at 
these stubs were defined so that the appropriate code nay be 
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written and inserted as the target machine and system 
configuration are specified. In this manner, it was possible 
to accomplish the goal of designing a well defined general 
purpose operating system. 

Though the goal was far reaching, it did not seem 
practical to approach the design of an operating system by 
considering each segment of the system independently (for 
example, designing interprocess communication without 
considering data structures and data access methods) . The 
design proceeded in a "top-down" fashion, specifying modules 
to perform the various functions required by the previously 
defined modules. As a result of having a set of machine 
independent module definitions, it was then possible to 
implement and test the postulated function of each module 
separately at first, and then collectively. Finally, formal 
specifications identifying the parameters, data structures, 
module interfaces, and primary- functions were developed for 
each module. 

Many of the features of the design are of particular 
interest. The interprocess communication modules define the 
techniques which aid in resource acquisition and process 
control (interrupt) and which provide the ability for 
synchronization of asynchronous operations. The data 
structures modules are the focal point for accessing, 
transferring and storing of data while allowing for the 
design and implementation cf other modules which are 
independent of the data structures. This latter case 
defines a mechanism for generating adaptive changes to an 
existing data structure without necessitating major changes 
to other modules providing the change is within the 
interface constraints. 
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B 



RECOHMENEATIONS 



As stated previously, the primary goal of this project 
was the design of a general purpose, . modular operating 
system which, at least conceptually, was hardware 
independent. Since module functions were postulated within 
a set cf generalized constraints, extenticns of this work 
may proceed in several directions. Firstly, each module 
specification should be more closely investigated to 
determine if a better technique for performing the function 
may replace the proposed one. 

Secondly, investigation into the hardware versus 
software dilemma should continue with the emphasis or* 
identifying operating system functions which, if performed 
by hardware, would enhance system performance without 
degradation of system flexibility, adaptability, and 
generality. In particular, the primitives Request and 
Release as designed in this system are two functions which 
could conceivably be implemented in hardware. Additionally, 
disabling and enabling interrupts, saving and restoring 
process states should be performed by simple machine 
instructions. 

Thirdly, a target machine should be specified for which 
a simulation model may be developed to test the correctness 
of the design decisions in a real time and multiprocessing, 
multiprogramming environment . The stubs should be replaced 
with workable test programs to support the simulation. 

The programming language PL/I was used for module 
implementation ana testing rather than a conventional use of 
an assembler language. The use of PL/I enhanced the 
comprehensability of the program logic and provided several 
mechanisms which aided in module implementation and testing; 
i.e., based and pointer variables, on conditions, generic 
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entry pcint specifications, and preprocessor functions. 
These high level language constructs and the addition of a 
construct for supporting queueing operations are recommended 
for inclusion in CS-h (see Appendix B) . Additionally, a 
compiler for the language should be designed which employs 
the latest techniques for code optimization since compile 
time is, in general, less critical than execution time. 
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APPENDIX A: 



GLOSSARY 



Access Vector: PCB data element that identifies the 

resources and primitives which may be used- by the 
process. 



Active: A status value which indicates that a process is 

waiting for a processor. 



Algorithm: A prescribed set of well-defined rules for the 

solution of a pro.hlem in a finite .number of steps. 



Assignment Vector: PCB data element which identifies the 

resources a process currently controls, must be a subset 
of the access vector. 



Blocked-For-Tiraer (BlockedT) : A status value which 

indicates that a process is waiting for a deadline. 



Buffer: A temporary storage area used for the transmission 

of data. 



Child: PCB data element that identifies the first 

dependent process in the list of related dependent 
processes. 



Cycle Time: PCB data element that identifies the 

reschedule time interval for a recurrent process. 



Deadline: The latest time at which the execution of a 

process may begin. 



Deadlock: The condition that results from the allocation of 

resources among certain processes in such a way that it 
is impossible to grant additional reguests to these 
processes. 



File: A collection of related data items treated as a unit. 



Hardware: Physical equipment, e.g., mechanical, 

electrical, or electronic devices. 



Interface: The linkage and conventions established for 

communication between two independent elements, „ usually 
between a process and another process, computer 
operator, I/O device, etc. 



Interrupt: A break in the normal flow of execution usually 

caused by a hardware-generated signal. 



JCL: Job Control Language - used to provide job 

specifications . 
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1 

Job Queue: Contains the JCL and administrative data of a 

process prior to its creation. 



Left Sibling: PCB data element that links the process to 

and identifies a related independent process having the 
same parent. 



LSI: Large scale integration. 



Hoduie: One buliding block or logical unit which is used 

in the construction of a system. 



Multiprocessing: The use of two or more processors to 

logically or functionally divide processes and to 
simultaneously execute various processes or segments of 
processes asynchronously. 



Multiprogramming: The use of the computing system to 

perform interleaved execution of two or more different 
processes which simultaneously contend for system 
resources. 



Operating System: A set of programs and routines which 

guide a processor in the performance of its tasks and 
assist the programs and programmers with supporting 
functions. 



Page: A process section of convienient size for 

transmission Detween secondary storage and main storage. 



Page Table: PCB data element that contains the location of 

the process' pages in secondary storage. 



Parent: PCB data element that identifies the process on 

which this process is immediately dependent. 

PCB: Process Control Block, a collection of control data 

concerning a process. 

Primative: An algorithm that is invoked by a process and 

is executed as a part of the invoking process. 



Preemption: The seizing of resources previously allocated 

to processes. 

Print Queue: Contains the administrative data identifying 

processes' output files. 



Priority: PCB data element that identifies the order of 

precedence for competing processes. 



Process: An algorithm which requires resources and can be 

Characterized by its state and environment. 
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Processor State Vector: PCB data element that specifies 

the necessary information to start (restart) the 
process; i.e., processor's registers contents. 

\ 

Quantum: PCE data element that identifies a limited or 

algorithmically specified time interval during which a 
processor is assigned to a process in a multiprogramming 
environment for sharing the prdcessor among competing 
processes. 



Queue: An ordered or unordered list of processes waiting 

fcr seme resource or service. 



RCB: Resource • Control Block, a collection of data 

concerning a resource. 



Resource: Any facility of the computer system or operating 

system required by a process. 

Right Sibling: PCB data element that links the process to 

and identifies a related independent progess having the 
same parent. 



Running: A status value which indicates that a process is 

in execution. 



Semaphore: Identifies a resource or class of resources. 



Software: Programs or routines to be executed on computer 

hardware . 



Spooling: A technique for interleaving 1/0 operations and 

process execution. 



Status: PCB data element that identifies the current state 

ox the process in the system. 



Stub: Denotes a logical break in a program at which point a 

subprogram or macro call may be inserted when the 
functional subspecification is implemented. 

Suspend: A status value which indicates that a process is 

not contending for resources and cannot be scheduled for 
execution until a system or process imposed condition 
has been satisfied. 
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APPENDIX B: MODELLING LANGUAGE 

The work done by D. L. Parnas in the development of 
SODAS [Ref. 9] and the high level language operating 
systems, such as the Burroughs MCP, HUITICS and Project SUE, 
have provided the motivation for modelling and implementing 
the AADC operating system in a high level language. 
Furthermore, the AADC program specifications have included 
the development of a new high level language, tentatively 
called CS-4, and the design and implementation cf an 
operating system for AADC in the proposed language [Refs. 11 
and 19]. Basically, CS-4 has developed as an extension to 
the Navy Tactical Compiler Monitor System (CMS-2) with the 
impetus on utilizing the proposed AADC hardware features and 
facilitating the programming of efficient executive and 
applications programs [Ref. 20]. 

A comparison of selected features of CS-4 to those 
defined in the languages available at the Naval Postgraduate 
School has been the basis for the selection of a high level 
language for modelling. The results of the comparison, 
presented in Table V, have led to the selection of PL/I in 
that it is more representative of CS-4 than the ether 
languages. Additionally, PL/I has provided a number of I/O 
control, storage allocation ana system control features that 
facilitated testing and simulating the model. Those 

features of CS-4 considered germaine to the modelling effort 
are defined below: 

1) Compound Data Structures: A hierarchical set of 

variables that refer to an aggregate of data items 
that may or may not have different attributes (data 
types) , 

2) Logical, Boolean, Arithmetic and Conditional 

Operators: A set of symbols each specifying .an 

operation to be performed; the result or. which 

depends upon the tyoe cf data and context in which it 
occurs, i.e., 

IF [[ ( A- 1 ) > b ] OR (C = 3) } THEN ... 
the minus sign, -, is arithmetic, the ’OR' is boolean 
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and the greater than, >, and egual, = , signs are 
conditional operators, 

3) External Data Declaration: An explicit or 

contextual declaration of an identifier such that it 
is only known within the scope of the declaration, 

4) External Procedure Declaration: An explicit or 

contextual declaration of a procedure such that the 
procedure is only known within the scope of the 

declaration , 

5) Variable Size Array Declarations at Runtime: The 

dimension of an array is determined and space 
allocated during execution of the program, 

6) Flew Control: The ability to control the execution 

of a specific instruction or set of instructions: 

i. Algolic Case Statment 

ii. If and compound If Statment 

iii. Do Statment 

iv. While Statment, 

7) Limited Scope Variables: An identifier which is 

known only within the scope of its declaration, 

8) Macro Definition: A compile time feature which 

provides the ability to specify an instruction or set 
of instructions which replace the macro name where it 
occurs in the source program, 

9) Character String: A string composed of zero or more 

characters from the complete set of characters whose 
bit configuration is recognizable by the computer 
system in use. 
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TABLE V. COMPARISON OF SELECTED HIGH LEVEL LANGUAGES 
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CP 


CP 
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X 
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Limited Implementation 



APPENDIX C 



MODULE SPECIFICATION AND IMPLEMENTATION 



PREPROC E SSO R FUNCTION 



NAME CHANGER PREPROCESSOR MACRO, USED TO SHORTEN 
IDENTIFIERS WITH THE EXTERNAL ATTRIBUTE TO SEVEN 
CHARACTERS DUE TO A PL/I RESTRICTION 

"EHAELED" BY S?INCLUDE NAMCHGR ; 



X DECLARE ( 



CURRENT PROCESS, 

CREATE RCB, 

BESTROT! RCB, 

DEVICE DIRECTORY, 

DEV L II KIT, 

DEV — U — LIMIT, 

ERRIE _ HANDLER, 

FILE I LIMIT, 

file-manager, 

FILE-SPACE MANAGER, 

FILE - U LIMIT, 

FIND - PINAME, 

FIND - INAME, 

INITIALIZATION, 

INITIATOR, 

INPUT CONTROLLER, 

INTERRUPT HANDLER, 

OPERATOR SYSTEM COMMUNICATOR, 
OUTPUT CONTROLLER, 

PCBSIRlNT , 

PCT L LIMIT, 

PCT" U“ LIMIT, 

PRIMITIVE ACTIVATE, 
PRIMITIVE-ALLOCATOR, 

PRIMITIVE - CREATE PCB, 

PRIMITIVE - DESTROY, 

PRIMITIVE” GETQUE, 
PRIMITIVE-INTERRUPT DIS ENABLER, 
PR I MIT IV E - INTERRUPT - ENABLER, 
PRIMITI V E” PCBDAT A , - 
PRIMITIVE^PUTQUE, 

PRIMITIVE - RCBDATA, 

PRIMITIVE - RCB HANDLER, 
PEIMITIVE”RCB — HATCH , 

PRIMITIVE - RELEASE , 

PR I MI TI V E — R ESIO RES TATE, 
PRIMITIVE - REOUEST, 

PRI MITI VE — S A VEST ATE, 
PRIMITIVE - SCHEDULER, 

PROCESSOR7 
RCB BITDATA , 

RCB - CHARD AT , 

RCB - FIND, 

RCE~FIX BD AT , 

RCB - TRANS FERQ, 

S EM - LIMIT, 

SE H — L LIMIT, 

SYS - PROCESSOR, 

TERMINATOR 
) CHARACTER ; 



* * * 



V 
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%CREATE_ECB = 'CHEAT R'; 

^CURRENT FROCESS = 'CURPROC' ; 

XDESTROY~RCE = 1 DSTR Y R'; 

^DEVICE IIRECTORY = '"DEV DIC'; 

XDEV 1 XI11IT = ' LDEVLIM'7 . 

%EBB'DR — HANDLER = 1 ERRHDLR ' ; 

3SDEV U^LIMIT = 'UDEVLIM'; 

XFII'E I LIMIT = 'LFILLIM'; 

%FILE - MXNAGER= ' FILEHAN'; 

%FILE — SPACE MANAGER = ' FSPAMN ' ; 

®FILE — U LIMIT = ' UFILLIM' ; 

XFIND~IUAME = 'FNDINAM 1 ; 

5SFIND - PINAME = ' FPINAME ' ; 

XlNITl ALIZ ATION= ' INITIZE'; 

^INITIATOR = ' I NITATR ' ; 

%INPUT CCNTRCLLER= 1 IN CONT'j 
^INTERRUPT HANDLER = " r INTKDLR ' ; 

^OPERATOR SYSTEM COMMUNICATOR =‘CP COMM' ; 
SSOUrPUI CCNTROLLRR = 'OUT COM ' ; ~ 

55PCBSTRI NT = 'PCBIN1T'; “ 

%PCI L LIMIT = ' LPCTLIM * ; 

%PCT — U — LIMIT = * UPCTLIM ' ; 

%PRIT5IIIVE ACTIVATE ='ACTIVAT'; 

%PBIMITI VE — ALLOCATOR = f ALLOCTR ' ; 

5?PRIKITI VE — CREATE PCB = 'CREAT P«; 

%PRIMITIV £ — DESTROY ='DESTROY';“ 

%PRIMIT'I VE — GETQUE = ' GETQUER ' ; 

%PR I MIT I VE — INTERRUPT DISENABLED = ' DISNABL ' ; 

XPRIMITI VE — INIERR UPT — ENABLER = 'ENABLE ' ; 

XPRIMITI VE — PCBD ATA =~»PCBSTR'; 

%PRIMITI VE — P UTQUE= ' PUTQUE 1 ; 
%PRIMITIVE^RCBDATA=' RCBHDLR' ; 

XPRIMITI VE — RCB HANDLER = 1 RCBHDLR ' ; 

XPRIMITI VE — RC3'*HATCH= 'RCBMTCH 1 ; 

X PR I MI 11 VE — RELEASE = 'RELEASE': 

S5PRIMITI VE — EE STORE STATE = 'RESTATE'; 
^PRIMITIVE - REQUEST = 'REQUEST'; 

^PRIMITIVE - SAVES TATE = 'SAVSTAT'; 

%PRIHITI V E — SCHEDULER = 1 SCHEDLR ' ; 

SfcPROCESSCR - = 1 PRCSSR 1 ; 

55RCE BITLATA = ' BITDATA ' ; 

%RCB CHA REAT= 1 CHAR DAT 1 ; 

KRCB^FIN D= ' E CBEIN D 1 ; 

5SRCB FIXEDAT='EIXBDAT' ; 

%RCE — Tfi ANSFERQ = ' TRANSQR ' ; 

%SE M — LIMIT = ' USEMLIM ' ; 

»SEH“L LIMIT = 1 LSEMLIH ' ; 

%SY S’" PROCESSOR = 'SYSPSCR' ; 

STER1INA1CR = 'TERMNTR'; 



/* att******##**#**:}:#***#*#******* 

USEFUI DECLARATIONS NOT PROVIDED BY PL/I. 

INCLUDED BY ‘/^INCLUDE GENDEC; */ 

DCL TRUE EIT ( 1 ) STATIC INITIAL (' 1 *-B) ; 

DCL FALSE BIT(1) STATIC INITIAL (' 0 ' B) ; 

^DECLARE FOREVER CHAR; 

%FOEEV£P.= ' WHILE (TRUE)'; 
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************* ** ********* * * * * * 
PREPROCESSOR IMPLEMENTATION OF A CASE STATHENT . 

"ENABLED" BY ^INCLUDE CASESTM. */ 

55DCL DO ACTION OF ENTRY RETURNS (CHAR) ; 

55DCL CASE ENTRY RETURNS (CHAR) ; 

5bDCL END OF CASES ENTRY RETURNS (CHAR) ; 

SDCL END'CAS'E CHAR; 

55DCL (31,511, SNEST) FIXED; 

8DCL 3K FIXED; 

55ENDCASE ='GC TO END OF CASE STMT'; 

3S8I1 = -1; “ ~ 

5531= -1 ; 

S3NEST = 0; 



55DO_ACTICN_OF: PROC RETURNS (CHAR) ; 

2NEST = 2NEST + 1; 

RETURN (• BEGIN; GO TO'); 

55END ; 



55CASE : PECC RETURNS (CHAR) ; 

IF (3NEST = 1) THEN SI = il + 1; 

ELSE 211 = 311 + 1; 

RETURN ('CASELAB') ; 

XEND; 



55END_OF_CASES: PROC RETURNS ( CHAR) ; 

IF (2NZST = 1) THEN DO; 3K = SI; 21 = - 1 ; END; 

ELSE DO; 3K = 311; 2I1=-1; END; 

2NEST = 2NEST -1; 

RETURN (' DCL CASELAB (3K) LABEL; 

END OF CASE STMT: END'); 

55END; “ ~ ■ “ 



DECLARATIONS FOR IDENTIFIERS USED AS INTERFACE VARIABLES 
WITH REQUEST AND RELEASE, AND AS VALUES PASSED IN 
MESSAGES. 

INCLUDED IN PROGRAM BY ^INCLUDE REQRELD; */ 

DECLARE ( /* REQUEST - RELEASE INTERFACE */ 

ANYPROC, 

$ENDJOB, 

3 ERROR, 

SFILECP, 

SIEUFI, 

$1 NAME, 

SINPUT, 

JINIDEV, 

SINTRPT , 

SJCBQSP, 

SNEWJOb, 

$GBUFF, 

$OPR 10, 

SOUTPUT, 

$P UTOUT , 

SPRINTQ, 

$RFILEW , 

•SSPACE, 

J WAIT 

) FIXED BINARY ( 1 5) EXTERNAL; 
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DECLARE ( /* OPERATION IDENTI FIE ES FOR FILE SPACE MANAGER */ 
$$ADD, /* ADD A DEVICE */ 

$$DELET, /* DELETE A DEVICE */ 

$$EXTNT , /* REQUEST FOR All EXTENT */ 

$5PEBMF, /* PERMANENT TYPE FILE */ 

$$SPACE, /* SPACE REQUESTED */ 

4STEMPF /* TEMPORARY TYPE FILE */ 



) FIXED BINARY (15) EXTERNAL; 

DECLARE ( /* OPERATION IDENTIFIERS FOR FILE MANAGER 



$$CLOSF , /* CLOSE FILE */ 

$$DIRAD, /* DIRECTORY ADD */ 

ISDIRDL, /* DIRECTORY DELETE */ 

$$DIRRD, /* DIRECTORY READ */ 

ISDSTYF, /* DESTROY FILE */ 

$$EOF, /* END OF FILE */ 

$$INTPC . /* INTERFACE PROCESS IDENTIFIER */ 

/* OPEN FILE */ 

/* OPERATOR SYSTEM COMMUNICATOR ID. 
/* READ OPERATION */ 

/* SPACE MANAGER IDENTIFIER */ 

/* WRITE OPERATION */ 



V 



ISOPENF, 
$$OPCOM, 
$$RFAD, 
$$SPCMN , 
$IWEITE 



V 



) FIXED BINARY (15) EXTERNAL; 



DECI ARE ( /* OPERATION IDENTIFIERS FOR OPERATOR SYS COMMON */ 
$$DCNE, 

$$FAIL, 
i $ OP RTR 

• $$PASS '/* PASS TO OPERATOR */ 

) FIXED BINARY (15) EXTERNAL; 

DECLARE ( /* OPERATION IDENTIFIERS FOR OUTPUT CONTROLLER */ 
$$FILOP, 

$$JCL, 

$$SIOP, 

$$TERM 

) FIXED BINARY (15) EXTERNAL; 

DCL MESSAGE POINTER STATIC ; 

DCL 1 MESSAGE BUFFER EASED (MESSAGE) . 

2 REIEASCl FIXED BINARY (15), 



2 

2 

2 

2 



NARY (15) , 



ANSWER REQUEST EIT(1), 

MSG SEMAPHORE FIXED BI 
BUFFER LOCATION POINTER, 

DATA FIELD, 

3 CHIR FIELD 1 CHAR (6 
3 CHAR - FIELD2 CHAR (8 
3 CHAR - FIELD3 CHAR (8 
3 CHAR^FIELD4 CHAR (8,. 

3 FI ELD 1 FIXED EINARY(15) 

3 FIELD2 FIXED BINARY (15'i 
3 FIFLD3 FIXED BINARY (15* 

3 FIELD4 FIXED BINARY (15 
3 FIELD5 FIXED EINARY 15 
3 FI ELD 6 FIXED BINARY (15 

DECLARE 1 OUTPUT BUFFER BASED (OBUFPTR) , 
2 OUT BUTF CHAR (132) ; 

DECI ARE 1 INPUT BUFFER BASED (IBUFPTR) , 
2 IN EUFF CHAR (80) ; 



66 



/****************************** 

DECLARATIONS FOR IDENTIFIERS USED AS INTERFACE VARIABLES 

WITH PCB STRUCTURES. 

INCLUDED BY %IHCLUED PCBDCL; */ 

DECLARE PRIMITIVE_PCBDATA GENERIC 

(DATCHAR ENTRY /* PUT OR GET CHARACTER TYPE DATA */ 
(FIXED BINARY./* PINAME = PCB NUMEER*/ 
BIT ( 1 ) ,/* SPUT OR SGET */ 

FIXED BINARY,/* FIELD IDENTIFIER */ 

CHAR 18 ),/* DATA FIELD */ 

FIXED BINARY /* ERROR PARAMETER */) , 

EATFIXB ENTRY /* PUT OR GET' FIXED BINARY DATA */ 

(FIXED BINARY,/* PINAfiE = PCB NUMBER*/ 
BIT ( 1 ) , /* SPUT OR SGET */ 

FIXED BINARY,/* FIELD IDENTIFIER */ 

FIXED BINARY, /* DATA FIELD */ 

FIXED BINARY /* ERROR PSAMETER */) , 

DATPTR ENTRY /* PUT OR GET POINTER DATA */ 

(FIXED BINARY,/* PINAME = PCB NUMBER*/ 
BIT ( 1 ) , /* EPXJT OR ©GET */ 

FIXED BINARY,/* FIELD IDENTIFIER */ 
POINTER. /* DATA FIELD */ 

FIXED BINARY /* ERROR PRAMETER */) , 

EATEIT2 ENTRY /* BIT (2) ARRAY DATA */ 

(FIXED BINARY,/* PINAME = PCB NUMBER*/ 
BIT ( 1 ) . /* oiPUT OR SGET */ 

FIXED BINARY,/* FIELD IDENTIFIER */ 
FIXED BINARY,/* DESIRED ARRAY ICHER 

LIMIT */ 

FIXED BINARY,/* DESIRED ARRAY UPPER 

LIMIT */ 

(*) BIT (2) ,/*ARRAY DATA FIELD */ 

FIXED BINARY /* ERROR PRAMETER */) , 

DATARYS ENTRY /* FIXED BINARY (15) ARRAY DATA */ 

(FIXED BINARY,/* PINAME = PCB NUMBER*/ 
BIT ( 1 ) , /* SPUT OR SGET */ 

FIXED BINARY,/* FIELD IDENTIFIER */ 
FIXED BINARY,/* DESIRED ARRAY ICHER 

LIMIT */ 

FIXED BINARY,/* DESIRED ARRAY UEPER 

LIMIT */ 

(*) FIXED BINARY,/* ARRAY DATA FIELD*/ 
FIXED BINARY /* ERROR PRAMETER */) , 

EaTARYI ENTRY /* FIXED BINARY (31) ARRAY DATA */ 

(FIXED BINARY, /* PINAME = PCB NUMBER*/ 
BIT (1) , /* SPUT OR SGET */ 

FIXED BINARY,/* FIELD IDENTIFIER */ 

(*) FIXED BINARY (31) ,/* DATA FIELD */ 
FIXED BINARY /* ERROR PRAMETER */) , 

DATEIT1 ENTRY /* BIT(1) DATA */ 

(FIXED BINARY,/* PINAME = PCB NUMBER*/ 
BIT ( 1 ) , /* SPUT. OR SGET */ 

FIXED BINARY,/* FIELD IDENTIFIER */ 
BIT ( 1) , /* DATA FIELD */ 

FIXED BINARY /* ERROR PRAMETER */) ) ; 
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DECLARE ECB_LIM FIXED BINARY (15) EXTERNAL; 

DECLARE ( 

3B0RMNR , 

3ERMVEC, 

3CHILD, 

3CYCLE, 

3FST AT, 

3FWCNTR, 

3LF2SIB , 

3MSGPTH, 

3NR PGS , 

SPA'SENT , 

3PE NR, 

3PRIRTY, 

3QUANIM , 

3RESVEC, 

3RG1SIB, 

8STATE, 

3STATUS, 

3SYSPR0 , 

3X NAME 

J FIXED BINARY (15) EXTERNAL; 

DECLARE ( 

3 G E T , 
aPlJI 

) HIT ( 1) EXTERNAL; 

DECLARE ( /* EHOCESS STATUS IDENTIFIERS */ 

33BLKDR , /* WAITING FOR A RESOURCE */ 

33BLKDT, /* BLOCKED AWAITING TIMER */ 

3SEEDYA , /* WAITING FOE A PROCESSOR */ 

33RUN, /* RUNNING */ 

23SUSPD /* SUSPENDED */ 

) CHARACTER (8) EXTERNAL; 



/if if%.ififif%.ifilf$fifififififififififififififififififififif 

DECLARATIONS FOR IDENTIFIERS USED AS INTERFACE VARIABLES 
WITH RCB HANDLER. 

INCLUDED BY %INCLUDE RC3DCL; */ 

DECLARE PEIMI1IVE_RCBDATA GENERIC 

(RCB CHARDAT ENTRY /* PUT OR GET CHARACTER DATA */ 
"(FIXED BINARY, /* RCB NUMBER = RESOURCE INTERNAL 

NAME V 

- BIT(1) , /* #PUT OR #GET */ 

FIXED BINARY, /* FIELD IDENTIFIER */ 

CHAR (8), /* DATA ARGUMENT */ 

FIXED BINARY /* ERROR ARGUMENT */ ) , 

RCB FIXBDAT ENTRY /*PUT OR GET FIXED BINARY DATA */ 
"(FIXED BINARY, /* RCB NUMBER = RESOURCE INTERNAL 

NAME */ 

BIT ( 1 ) , /* #PUT OR #GET */ 

FIXED BINARY, /* FIELD IDENTIFIER */ 

FIXED BINARY, /* DATA ARGUMENT */ 

FIXED BINARY /* ERROR ARGUMENT */ ) , 

RCB BITDATA ENTRY /* PUT OR GET BIT(1) DATA */ 

"(FIXED BINARY, /* RCB NUMBER = RESOURCE INTERNAL 

NAME */ 

BIT { 1 ) , /* #PUT OR #GET */ 

FIXED BINARY, /* FIELD IDENTIFIER */ 

BIT ( 1 ) , /* DATA ARGUMENT */ 

FIXED BINARY /* ERROR ARGUMENT */ ))\ 
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DECLARE ( /♦ FIELD IDENTIFIERS ASSOCIATED WITH 
PRIMITIVE_RCBDATA */ 

/♦♦♦FIELD | ASSOCIATED VALUES PASSED OB RETURNED 

IDENTIFIER j IN THE DATA ARGUMENT ♦/ 



#ASSGND, 

#CNT SZ, 

iCRATR, 

tDINAME, 

#DS1AT, 

#L QUE, 

SOTILE, 



/♦ 

/* 

/* 

/* 

/♦ 

/♦ 

/* 



) 



#OHBER, /♦ 
♦PCINAifl , /* 

#R CUE, /♦ 
#S~OR_P , /♦ 

STFILE, /♦ 
*XNAHE /♦ 
FIXED BINARY 



DECLARE ( /♦ RCB TYPES 
#DE VICE , 
iJFIIE , 
iJPCl , 

#SEMFOR 

FIXED BINARY EXTERNAL: 



VALID RCB NUMBER CHECK ♦/ 

COUNTER OR SIZE - FIXED BINARY ♦/ 

PINAME OF CREATOR - FIXED BINARY */ 
DEVICE INANE (FILE LOCATION) - F.B. ♦/ 
DEVICE STATUS ##GO OR SSHOLD -BUM)*/ 
RETURNS EMPTY OR NOT EMPTY - EIT (1) */ 

OPEN FILE STATUS - # #NO A VL , # # AV A IL , 
##READ, OR ff#WRITZ: DEVICE AVAILABLE 

FOR JMfTEMPF, #*PERNF, OR #TORPF FILES 
FIXED BINARY */ 

PINAME OF OWNER - FIXED BINARY ♦/ 
EXTERNAL NAME OR PACK, CELL OR TAPE 

- FILE LOCATION - CHAR (8) */ 

RETURNS EMPTY OR NOT EMPTY - BIT(1) */ 
SHARED OR PRIVATE ##SHED OR ##PRIV 

- BIT ( 1 ) */ 

FILE TYPE - #TEMPF OR ##PERMF F.B.*/ 
RES. EXTERNAL NAME - CHAR (8) */ 

EXTERNAL; 

V 



) 

DECLARE ( 



/* OPERATIONS 
#FN DOF 1 , 
ifFNDOP2 , 

SFNDOP3 , 

#FNDOP4, 

#FNDOP5 

) FIXED BINARY EXTERNAL; 



FOR RCB_FIND */ 



DECLARE ( /♦ STATUS 

AN 

ti# AVAIL , 
## NCA VL , 
##PERMF, 
## PRI V, 
##R£AD, 

##reada, 

# #READS , 
if ffSHRD, 
jfifl'EMPF, 
##TORPF , 

# # W RITE , 
##KRITA, 
fc#WRITH, 
if# WRITS 

) FIXED BIN 



/* 

/* 

/* 

/* 



IDENTIFICATION FOR QUEUED FILE OPERATIONS 
D FILE USE STATUS IDENTIFIERS */ 

/* FILE IS NOT CURRENTLY OPEN ' ' 

■ FILE IS NOT CURRENTLY ACTIVE 
PERMANENT FILE */ 

PRIVATE FILE */ 

READ OPERATION */ 

/* READ - ANSWER REQUIRED - STATUS => 
PROCESS' FILES HAVE BEEN SACRIFICED 
/* READ SACRIFICE - NO ANSWER REQ'D. 

/* SHARED FILE */ 

/* TEMPORARY FILS */ 

/♦ TEMPORARY OR PERMANENT FILE */ 

/* WRITE OPERATION */ 

/* WRITS ANSWER REQUIRED - SACRIFICED */ 
/♦ WRITE HOLD - AWAITING PERMISSION ♦/ 
/♦ WRITE SACRIFICE - NO ANSWER REQ'E. 

ARY EXTERNAL; 



*/ 

*/ 



*/ 

*/ 



V 

V 



DECLARE ( /* STATUS OF PROCESS W.R.T. FILE OPERATIONS */ 

##READR , /♦ ONLY READING FROM SHARED FILES */ 

# tt S A C R , /♦ SACRIFICED */ 

if # WRITR /♦ WRITING INTO SHARED FILES - NOT 

SACRIFICED */ 

) FIXED BINARY EXTERNAL; 
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DECLARE ( /* READY ACTIVE QUEUE IDENTIFIERS */ 

•RED YA 

) FIXED EINARY (15) EXTERNAL, 

(#0S, 

#USER 

) BIT { 1) EXTERNAL; 

DECLARE ( /* RESOURCE VECTOR STATUS VARIABLES */ 

##ACCES, /* ACCESS ALLOWED */ 

## ACQRD, /* PROCESS HAS ACQUIREE THIS DEVICE */ 
##NOACC, /* ACCESS NOT ALLOWED */ 

##S ACRE /* PROCESS HAS BEEN SACRIFICED W.R.l. 

THIS DEVICE - BUST EEASSIGN */ 

) BIT (2) EXTERNAL; 



DECLARE { /* QUEUE STATUS, QUEUE IDENTIFIER AND DEVICE 

STATUS VARIABLES 

MCLOSE, 

##GO , 

##HCLD, 

##OEEN, 



V 



#GET, 

#PU1, 



#LEFT , 

#RIGHT 

) BII (1) EXTERNAL; 
DECLARE ( 

DEV L LIMIT, 

DEV - U — LIMIT , 

JILT X LIMIT, 

FILE - U - LI MIT, 

PCT X LIMIT. 

pct - u - limit; 

SEM - LIMIT, 

c F M~ T T THTT 

) FIXID - BINARY EXTERNAL; 



DECLARATION AND PROCEDURE CALL NECESSARY TO OBTAIN A 
MESSAGE EUFFER AND KNOWLEDGE OF A PROCESS' OWN 
INTERNAL NAME. 

INCLUDED EY ^INCLUDE RRMSG; */ 

DECLARE MYNAME FIXED BINARY (15) STATIC INIT (0) ; 

CALL PRIMITI VE_PC3DATA (MYNA H 5 , 3GET , SMSGPTR , M ESS AGE , ERROR) ; 



/*****$****#*** *#*❖#*# ❖*** ’I 1 *### 

DECLARATIONS FOR IDENTIFIERS USED AS INTERFACE VARIABLES 
BY OPERATING SYSTEM PRIMITIVES AND PROCESSES. 

INCLUDED BY ^INCLUDE OSDCL; */ 

DCL CURR£NT_FROCESS (4) FIXED BINARY EXTERNAL; 

DECLARE ( 

ALL INT, 

NUHXINT, 

NUMBCPU, 

PROCESSOR, 

SYS EROCESSOR 
) FIXID BINARY EXTERNAL; 

DECLARE SAVEINTS (16) BIT(1) STATIC; 
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/* ***************************** 
DECLARATIONS FOR PROCESSOR REGISTERS, FOR SIMULATION . 

INCLUDED EY ^INCLUDE REGSTRS; */ 

DECLARE CPUREGS (4 , 10) FIXED BINARY (31) EXTERNAL; 

*♦♦*****#«*********♦******♦♦ * 

DECLARATIONS FOR AH ARRAY TO SIMULATE ENAELING AN 
INTERRUPT. 

INCLUDED EY ^INCLUDE INTACT V.; */ 

DECLARE INTRUPT (16) BIT(1) EXTERNAL; 

DECLARATION, FOR SIMULATION PURPOSES, OF THE INTERRUPT 
LOCATIONS. 

INCLUDED BY ^INCLUDE INTSET; */ 

DECLARE INIRSET (16) BIT(1) EXTERNAL; 
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MODULE SPECIFICATION 



NAME: EBBOB HANDLER TYPE: PROCESS 

PARAMETEBS 

INP UT OU TPUT TYPE , CO NTENT S 

Not Applicable: All communications handled via messages. 



EXTEBNAL CALLS MADE TO OTHER MODULES 
NAME PABAMETEBS PURPOSE 



Request Process I-Narae, 
Semaphore, 
Message Pointer, 
Error Parameter 



Release Process I-Name, 
Semaphore, 

Message Pointer, 
Error Parameter 

PCBData Process I-Name, 

Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 



a) SError - Semaphore used to 
identify messages for this 

P I? O CGSS • 

b) SObuff - Semaphore used to 
obtain an output buffer. 

a) $0pr_I0 - Semaphore used to 
pass a message via the Op- 
erator System Communicator 
to the Computer Operator. 

Generic entry point to process 
Control Block module used to 
enter or obtain data. 



EXTERNAL CAII.S MADE BY OTHER MODULES 
NAME. PURP OSE 

Not applicable for processes. 



DATA STRUCTURES USED 
NAME 



Message 

Buffer 



FIELD 


.TYPE 


PURPOSED VALUES 


— 


Based 


Dynamically allocated, pointer 
qualified structure used for 
passing messages. 


Releasor 


Integer 


Internal name cf process 
releasing a message. 


Answer- 

Request 


Bit (1) 


Boolean indicating if answer 
reguired. 


Message- 

Semaphore 


Integer 


Semaphore to be used in the 
answer. 


Buffer- 

Location 


Pointer 


Qualified I/O buffer contain- 
ing message to/from operator. 


Fieldl 


Integer 


Internal name of process which 
caused the error. 


Field2 


Integer 


The error condition code. 


Field3-6 


Integer 


Not used. 


Char- 

Fieldl-4 


Char (8) 


Not used. 
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MODULE DESCRIPTION 

Net inplemented - Dummy module used to accept error messages 
and to pass a decoded message to the computer operator. 
Actual inplementation is dependent on the hardware and the 
detection or correction techniques employed. 
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M ODULE IMPLEM ENT ATION 

^INCLUDE NAMCHGB; /***** ERROR HANDLER **♦**/ 

(CHECK (ERROR)): 

ERROR_HANELEE: PROC OPTIONS (MAIN) ; 

^INCLUDE SIH ULTR ; 

SIM_START (PROCESS_ r ERROR_H ANDLER) 

XINC1UDE GENEEC; 

55INCLUDE PCBICL; 

^INCLUDE CASESTM ; 

S5INCLUDE REQRELD; 

ON CHECK (ERROR) 

EEGIN ; 

TE (ERROR 0) THEN DO: 

/* NON RECOVERABLE CONDITION: ERROR DETECTED 

IN ERROR HANDLER */ 

STOP; 

END; 

END ; 

^INCLUDE RBMSG ; 

DCL ERROR EIXED BINARY IN IT (0) ; 

DCL HAREWARE ERROR BIT (1) ; 

DCL (PINAME, Eli R COD) FIXED BINARY STATIC; 

DCL (PNAME,RNAME) CHAR (8) STATIC; 

DCL INDX FIXED BINARY (15,0) ; 

DCL CBPTfi POINTER STATIC; 

DCL RCE ERR CODES (101 : 120) CHAR (40) STATIC 

INITIAL'? 

'INVALID RCB TYPE SPECIFIED IN CREATE RCB ' , 

• SYSTEM CONDITION: ALL RCB SPACE IN USE', 
'INVALID RESOURCE INTERNAL NAME SPECIEIED', 
'ATTEMPTED ACCESS TO AN UNALLOCATED RCE', 
'ACCESSED EMPTY QUEUE OR UNOPENED FILE', 
•HEAD/WRITE OPERATION ON AN UNOPENED FILE', 
'RESTRICTED ACCESS: WRITE INTO QUE-HEADER', 
'UNIDENTIFIED OPERATION IN RCE FINE', 
'UNAUTHORIZED ACCESS TO A RESOURCE', 
•INVALID FILE OPERATION SPECIFIED', 

• UNIDENTIFIED RESOURCE EXTERNAL NAME', 

• UN ATHGRI2EB WRITE ACCESS TO SHARED FILE' 
•DEVICE IN HOLD STATUS: FILE UNACCESSIBLE* , 
•PERMANENT FILE CREATION UNAUTHORIZED' 
•INSUFFICIENT SPACE FOR PERMANENT FILE', 
•WRITE OPERATION TO FILE IN READ STATUS' . 
•UNAUTHORIZED RESOURCE DESTROY ATTEMPTED', 
•RESOURCE ACCESSED HAS BEEN DESTROYED', 
•ATTEMPTED TO MODIFY RC3 ASSIGNED FIELD', 

i i 



DCL PCE ERR CODES (201 : 206) CHAR (40) STATIC 
INITIAL"? 

•INVALID PROCESS INTERNAL NAME SPECIFIED', 
•ATTEMPTED ACCESS TO UNALLOCATED PCB' 
•INVALID PCE FIELD REFERENCE SPECIFIED', 
•INVALID OPERATION ON PCE FIELD ATTEMPTED', 
' SPaCE NOT AVAILABLE FOR A NEW PCB', 
•PROCESS NOT FOUND WITH SPECIFIED NAME' 
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DCL ERCCESS ERR CODES (301 : 310) CHAR (40) STATIC 
INITIAL"! _ 

•INVALID OP SYS COMM ACTION IDENTIFIER ' , 

• i _ - 

• ' UNIDENTIFIED RESOURCE X NAME IN MSG EUFF ’ . 
•UNIDENTIFIED MESSAGE TO“INPUT CONTROLLER' , 
•INVALID ACTION IDENTIFIER TO OUTPUT CONT', 
•INVALID ACTION IDENTIFIER TO OUTPUT CONT', 
•INVALID SEMAPHORE PASSED TO REL/REQ ERIM' 
•UNAUTHORIZED USE OF MESSAGE SEMAPHORE', 

I ' I 



) ; 



DC ECREVER; 

CALL ERIMITIVE REQUEST (ANYPRCC,$OBUFF, MESSAGE, ERROR) ; 
OEPTE = EUFFER - LOCATION ; 

SIH_INIERRUPT_PT 

CALI PRIMITIVE REQUEST (AN YPROC , $ERROR , MES S A GE , 

ERROR) ; 



SIM_IN1ERR UPT_PT 

CALL ERROR INTERPRETER; 

IF HARDWARE: ERROR THEN CALL HDWR ERR HNDLR ; 

ELSE CALI SOFTWARE ERR HNDLR; - 

END; 

SIM_END 

ERRCR_INTERPRETER: PROC; 

/* IDENTIFICATION OF THE ERROR TYPE AND CAUSE 

IS DETERMINED IN THIS SUBROUTINE; I.E., TAELE 
LOOKUP. */ 

HARIWARE ERROR = FALSE; 

EETURN; “ 

END ERROR_INT ER PREFER ; 

HDWE_ERR HNDLR: PROC; 

/* EXTERMINATION OF R ECO VERA BLE/ NON -RECOV ERABIE 
AND THE APPROPRIATE ACTION INCLUDING A MESSAGE 
TO THE OPERATOR, IF NECESSARY, IS ACCOMPLISHED 

V 

RETURN; 

END BDW E ERR HNDLR; 
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SOFTWABE_ERR_HNDLR: PROC; 

/* APPROPRIATE ACTION TO CORRECT THE ERROR OR 
PREVENT FURTHER ERROR IS TAKEN. FOR EXAMPLE. A 
USEE PROCESS ATTEMPTING TO WRITE INTO A RESTRICTED 
FILE MIGHT BE TERMINATED. ***/ 

/*** IDENTIFY PROCESS AND ERROR CODE ***/ 

IF (FIELD 1 = 0) THEN PINAME = RELEASOR; 

ELSE PINAME =FIELD1 ; 

ERRCOD = FIELD2 ; 



/*** SET UP MESSAGE EOR THE OPERATOR ***/ 
CALL PRIMITIVE PCBDATA (PI NAME ,aGET , aJXNAMS , P NA ME , 

E R RO R) • 

GBUEPTR, BUFFER LOCATION = OBPTR ; 

INDX = ERRCOD A100: 

CASE (INDX) ; 

RE SO UR Cl 



DO ACTION 
ClSE(l) 
CBUFPTR 



OF 



ENECASE; 



CASE (2 
GBUF 






TR -> 



ENECASE; 
CASE (3) : 
OBUFPTR 



-> 



/* 

OUT 



/* 

OUT 



/* 

OUT 



,±; ERROR 

BUFF = PNAME || 



V 

RCE_ERR_CODES (ERRcAd) 



CODES 

i i 



PROCESS ERROR CODES */ 

BUFF = PNAME 1 | • • | | 

PCB_ERS_CODES (ERRCOD) 

PROCESS ERROR CODES */ 



BUFF = 



ENECASE; 

END OF CASES; 
BSG~SElAPHORE = $OBUFF; 
ANSWER REQUEST = TRUE; 
FIELD 1 — = SSPASS ; 



PNAME || ' ' I | 

PROCESS_E RR_CODES (ERRCOD) 



/*** RELEASE MESSAGE. TO THE OPERATOR ***/ 

CALL PRIMITIVE RELEASE (ANYPROC, SO PR IO,MESSAGE, 

ERROR) ; 

/* ADD CODE TO TERMINATE PROCESS CAUSING THE 

ERROR, IF NECESSARY. */ 

RETURN; 

END SOFT WARE_ERR_HNDLR ; 

END ERROE_HANDLER ; 
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MODULE SPECIFICATION 



NAME: OP ERA TOR SYS TEM COMMUNICATOR TYPE: PROCESS 

PARAMETERS 

INPU T OUTPUT TYPE CONTENTS 

Not Applicable: All communications handled via messages. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PARAMETERS. PURPOSE 



Request Process I-Name, 
Semaphore,, 
Message Pointer, 
Error parameter 



Release Process I-Name, 
Semaphore, 
Message Pointer, 
Error Parameter 



Find- Process X-Name, 

Piname Process I-Name, 

Error Parameter 



a) $Opr 10 - Semaphore used to 
idenTify -messages for this 
process. 

b) $0buff - Semaphore used to 
obtain an output buffer. 

a) $0utpuc - Semaphore used to 
send messages to the Output 
Controller. 

b) Slnput - Semaphore used to 
send messages to the Input 
Controller. 

c) SFileop - Semaphore used to 
send messages to the Eile 
Manager. 

d) $Error - Semaphore used to 
send messages to the error 
Handler. 

e) $!?ait - General messaqe 
class identifier. 

f) $Ibuff - Semaphore used to 
free input buffers. 

Entry point to PCB Handler 
used to obtain the internal 
name of a process identified 
by external name. 



EXTERNAL CALLS MADE BY OTHER MODULES 
NAME PURP OSE 

Not applicable for processes. 
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DATA STRUCTURES USED 

NAME FIELD TYPE PUBPOS E/VA LUES 

Message — - Based Dynamically allocated, pointer 

Buffer gualified structure used for 

passing messages. 



Beleasor 


Integer 


Internal name cf process 
releasing a message. 


Ansver- 

Beguest 


Bit (1) 


Boolean indicating if answer 
required. 


Message- 

Semaphore 


Integer 


Semaphore to be used in the 
answer. 


Buffer- 

Location 


Pointer 


Qualified I/O buffer contain- 
ing message to/from operator. 


Fieldl 


Integer 


Action identifiers: $$PASS for 
messages to other processes or 
the operator; SSOPCOM for mes- 
sages to this process. 


Field2 


Integer 


Value equals SiOPRTR then 
message from operator; $$D0N2 
or $ $FAIL indicates task com- 
pletion code for messages sent 
to other processes. 


Field3-6 


Integer 


Not used. 


Char- 

Fieldl 


Char (8) 


Resource external name in 
answers to task messages. 


Char- 

Field2-4 


Char (8) 


Not used. 



MOD UL E D ESCR IPTI ON . 

A simplistic implementation has been completed to reify the 
concept cf using a focal point for system-operator communi- 
cations. The exact hardware configuration; a repertoire of 
instructions; and a complete specification of functions to 
be performed are essential for a complete implementation. At 
present, the process passes messages ana initiates action 
messages upon receipt of instructions from the operator. 
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MODULE IMPLEMENTATION 



^INCLUDE NAMCHGR ; /***♦* OPERATOE SYSTEM COMMUNICATOR*/ 

(CHECK (ERROR) ) : 

OPERATOR_SYS1EM_COMMUNICATOR: PROC OPTIONS (MAIN) ; 



^INCLUDE SIMULTP; 

SIM^START (PROCES S_OPERATOR_S YSTEM_COMMUNlC ATOR) 

/* ********************** ***** 
THIS MODULE SERVES AS THE FOCAL POINT FOR SYSTEM 10 
OPERATOR AND OPERATOR TO SYSTEM MESSAGES. IT INTER- 
PRETS MESSAGES AND DETERMINES THE ACTION TO 3E TAKEN. 

IN PARTICULAR, IT ISSUES ACTION MESSAGES TO THE INPUT 
CONTROLLER, OUTPUT CONTROLLER, AND FILE MANAGER TC ADD 
OR DELETE 4 DEVICE AND IT.S ASSOCIATED INTERFACE PROCESS 
AS KELL AS PASSING MESSAGES FROM THE SYSTEM TO THE 
OPERATOR. ***/ 

^INCLUDE GENLEC; 

^INCLUDE CASESTM ; 

^INCLUDE ECBDCL; 

^INCLUDE EEQRELD; 



ON CHECK 
BEGIN 
IF 



END; 



(ERROR) 

(ERROR ->= 0) THEN DO; 

(NOCHECK (ERROR) ) : 

BEGIN; 

ANSWER REQUEST = FALSE; 

MSG SEMAPHORE = 0; 

FI El D 1 = RELEASOR; 

FIELD2 — ERROR; 

MSG SEMAPHORE = 0; 

CALX PRIMITIVE RELEASE ( AN YPROC , SiSRROR , 

MESSAGE, ERROR) ; 

ERROR =0; 

END • 

GO TO START; 

END; 



i 



5SINCLUDE EEMSG ; 



DCL ERROR FIXED BINARY STATIC INIT (0) ; 

DCL BUFFER USED BIT(1) STATIC INIT('I'B); 

DCL EUFFER^POINTER POINTER STATIC; 

CALL COMMUNICATIONS INITIALIZER; 

START: 

DC FOREVER ; 

IF BUFFER USED THEN DO; 

CALL PR1MITIVE_REQUEST (ANYFROC , $OBUFF, MESSAGE, ERROR) ; 
SIM INTERRUPT PT 



EUFFER USED = FALSE; 

EUFFEE POINTER = BUFFER LOCATION; 

END; 

CALL PRIMITIVE__ REQUEST (ANYPR CC , $OPR_IO , MESSAGE, ERROR) ; 
SIM INTERRUPT PT 
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CALL MESSAGE INTERPRETER; 
D0_ ACTIO N_OF — C ASE (I) ; 



'* PASS MESSAGE TO OPERATOR */ 



CASE (1) 

/* Pi 

FIELD4 = RELEASOR; 

CALL PRIMITIVE RELEASE (ANYPROC,$OUTPUT,MESSAG£, 

ERROR) ; 

2NLCASE; 



CASE (2) * * 

/* MESSAGE PROM OPERATOR OR SYSTEM */ 

DCL (START! PT,MSG LEN,PINAME) PIXEL BINARY (15,0) ; 
DCL MSG COPE CHAR74) STATIC; 

DCL (MS'S ITE111 , MSG IT EM 2) CHAR (8) STATIC; 

ECL fCODH CHAR (1 ) STATIC; 

DCL MSG SEM FIXED BINARY STATIC INITIAL (0) ; 

DCL SYS - MSG CHAR (40): 

DCL ACTION FIXED -BINARY STATIC INITIAL (01 ; 

IF (PIELD2 = SSOPRTR) THEN DO; /* MSG PROM OPERATOR */ 
/*** INTERPRET MESSAGE IN INPUT BUFFER ***/ 

' START PT = 3; 

MSG L"EN = 4 • 

IBUTPTR = BUFFER LOCATION; 

MSG CODE = SUBSTH (IBUPPTR -> IN BUFF, 

START PT,MSG IEN) ; 

START PT = 7; 

MSG LlN = 8; 

MSG - ITEM 1 = SUBSTR (IBUFPTR -> IN BUFF, 

~ cn'ifiT pti Mqr; TFNI • 

IF (MSG CODE = 'ADD ') THEN ' ACTION =$$ADD; 

ELSE - IF (MSG CODE = 'DEL ') THEN ACTIO N=$$DELET ; 
ELSE DOT /* MESSAGE TO SYSTEM PROCESS */ ; 
CALL FIND PINAME (MSG IIEM1 , PI NAM E , 

ERROR) ; 

FIELD 1 = $$OPCOM : 

CALL PRIMITIVE RELEASE (PINAME ,SWAIT, 

MESSAGE, ERROR) ; 



END; 

IF (ACTION -■= 0) THEN DO; 

/*** IDENTIFY RESOURCE TYPE ***/ 

START PT = 1 ; 

MSG LHN = 1 ; 

FCOHE = SUBSTR (MSG ITEM1 , START PT , MSG LEN) ; 

IF (PCODE = 'I') THEN MSG SEM = SINPUT; 

ELSE IF (PCODE = 'O') THEN MSG SEM = $OUTPUT; 
ELSE IF (PCODE='F') THEN HO; 

START PT = 15; MSG LEN = 8; 

MSG ITEH2=SU3STR (I3UFPTR -> 

IN BUFF, START PI, MSG LEN); 
MSG SEM = STILEOP; 

END; 

ELSE DO; /* UNIDENTIFIED RESOURCE 
EXTERNAL NAME. */ 

CALL PRIMITIVE RELEASE (RELEASOR , $IEUFF, 

MESSAGE, ERROR) ; 

BUFFER LOCATION, OBUFPTR = BUFFER POINTER; 
OBUFPTH -> OUT BUFF = MSG CODE U 

MSG ITEH1 I | — 'INVALID RlSOURCE NAME'; 
FIELD! = SSOPCOM; 

FIELD2 = SSPASS; 

ANSWER REQUEST = FALSE; 

MSG SEMAPHORE = 0; 
FIEID3,FIELD4,FIELD5,FIELD6 = 0; 

CHAR FIELD 1 .CHAR FIEL D2 , CHAR FIELD3, 
"CHAR FI ELD4 - = 

CALL PRIMITIVE RELE AS E ( A N YPF.CC , SOUTE UI , 

MESSAGE, ERROR) ; 



BUFFER USED = TRUE; 

END; 
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IF ((ACTION -•= 0) & (MSG SEN ~>= 0)) THEN DO; 

/*** SEND TASK MESSAGl TO PROCESS CONCERNEE ***/ 
ANSWER REQUEST = TRUE; 

MSG SEMAPHORE = $OPR 10; 

FIEID1 = S-50PC0M; 

FIELD2 = ACTION; 

CHAR FIELD1 = MSG ITEM 1 : 

IF CPCODE = 'F') THEN CHAR FIELD2 = MSG ITEM2; 
CALL PRIMITIVE RELEASE (ANYPROC , MSG SEM, MESSAGE, 

ERROR) ; 



PROCESS 



END; 

END; 

END: 

ELSE DO: /* MESSAGE ANSWER FROM SYSTEM 

/*** RELEASE MESSAGE TO THE OPERATOR 
ACTION = FIELD2; 

IF (ACTION = .$5 DONE) THEN 

SYS MSG = 'ACTION COMPLETED FOR'; 

ELSE S YS — MSG = 'UNABLE TO PERFORM ACTION ON' 
BUFFER LOCATION, 03UFPTR = BUFFER POINTER; 
OBUFPTH -> OUT BUFF = SYS MSG II 
CHAR FTELD1 | | CHlR FIEL 
FIELD 1 = SSOPCOM; 

FIFLD2 = SSPASS ; 

ANSWER REQUEST = FALSE; 

MSG SEMAPHORE =0; 

FIEXD3, FIELD4,FIELD5, FIELD6 = 0; 

CHAR FI ELD 1 , CHAR FIELD2 ,CHAR FIELD3 , 

CHAR FIELD4 = ' • ; 

CALL PRIMITIVE RELEASE (ANYPROC, $OUTPUT, MESS AGE, 

ERROR) ; 

EUFFER USED = TRUE; 

END; 

EN C C A S ii ; 



*/ 



-E2; 



END_CF_C ASES ; 
END; 

SIM END 



MESSAGE_INTERPRETER: PROC; 

/* INTERPRET MESSAGE TO DETERMINE REQUIRED ACTION AND 
SET THE CASS STATEMENT INDEX ***/ 

IF (EIELD1 = $ $PASS) THEN 1=1: 

ELSE IF (FIELD 1 = SSOPCOM) THEN 1=2; 

ELSE ERROR = 301; 

END HESSAGE_ INTERPRETER; 

COMMUNICATIONS_ INITIALIZER: PROC; 

/* ISSUE REQUESTS AND RELEASES TO INITIALIZE THE 

SYSTEM INPUT / OUTPUT CONFIGURATION */ 

END COMMUN IC A TI 0 N S_I N ITI ALL ZER ; 

END OPER AIOR_SYSTEM_COMMUNIC ATOR ; 
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MODULE SPECIFICATION 

NAME: INPUT CONTROLLED TYPE: PROCESS 

PARAMETZES 

INPUT OU TPUT TYPE CONTENTS 

Not Applicable: All communications handled via messages. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME P ARAMETERS PUR P OSE 



Request Process I-Name, 
Semaphore, 
Message Pointer, 
Error Parameter 

Release Process I-Name, 
Semaphore, 
Message Pointer, 
Error Parameter 



Device Resource X-Name, 

Directory Access Identifier, 
Process X-Name, 

Page Table Length, 
Page Table Vector, 
Priority. 

Interrupt Number, 
Located- Boolean 

PCBData Process I-Hame, 

Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 

PCBData Process I-Name, 

Put/Get Identifier, 
Field Identifier, 
Vector Lower Limit, 
Vector Upper Limit, 
Vector Parameter, 
Error Parameter 



a) flnput - Semaphore used to 
identify messages for this 
process. 



a) $Error - Semaphore used to 
send a message to Error 
Handler. 

b) $Intdev - semaphore used to 
send a message to a newly 
created interface process 
to identify a device inter- 
nal name. 

c) SIbuff - Semaphore used to 
release input buffers to an 
interface process. 

d) $0pr_I0 - Semaphore used to 
send a message to Operator 
System Communicator when 
passing messages from the 
operator or replying to a 
message from Op-Sys-Ccmm. 

This module is invoked tc get 
data which identifies a device 
interface process and which is 
required to create a PCB and 
an RCB for the interface pro- 
cess and device, respectively. 



Generic entry point to PCB 
Structures module to enter or 
obtain data. 



Generic entry point to PCB 
Structures module to enter or 
obtain data or portions c£ the 
data stored as a vector (i.e.. 
Resource Access Vector, Page 
Table Vector, etc.). 



RCBData Resource I-Name f Generic entry point to RCB 

Put/Get Identifier, Handler module to enter cr get 
Field Identifier, data concerning a resource. 
Data Parameter, 

Error Parameter 
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RCBPUTQ 



Resource I-Name, 
Left/Right Queue, 
Process I-Name, 
Data Parameter, 
Priority , 

Message Pointer, 
Data parameter. 
Error Parameter 



Entry point to RCB Handler 
used to insert a process 
or a message on a specified 
resource gueue by priority. 
Queues used by this process 
are the message semaphore and 
the Ready Active queues. 



Find Resource Type, 

I-Name Resourse X-Name, 

Resource I-Name, 
Error Parameter 



Entry point to RCB Handler 
used to get the internal name 
for the resource specified by 
type (file, device, etc.) ana 
external name. 



Interrupt Interrupt Number, 
Enabler Interrupt Save- 
Vector 



This module is invoked tc en- 
able a specific interrupt or 
enable all interrupts disabled 
by this process. 



Interrupt Interrupt Number, 
Disabler Interrupt Save- 
Vector 



This module is invoked tc dis 
able a specific or 
all interrupts and saving the 
status of the interrupts in 
a save-vector for enabling. 



Create Resource Type, 

RCB Resource X-Name, 

Resource Owner. 
S2-Cntr Parameter, 
Access Identifier, 
PCi Name, 

Dev/Int Identifier, 
File Descriptor, 
File Descriptor, 
Resource I-Name, 
Error Parameter 



Entry point to RCB Handler 
used to create an RCB of the 
type specified; enter descrip 
tor data in the appropriate 
RCB fields; and return the 
resource internal name. Not 
all fields are used by each 
type of resource. 



GETPCB Parent I-Name, 
Rgt-Sib I-Name, 
Process X-Name, 
Priority , 

System process ID, 
iuit State Vector, 
Process I-Narae, 
Cyclic Process Id, 
Error Parameter 



Entry point to PCB Structures 
used to create a PCB for a 
process; enter data in the PCB 
fields; and return the process 
internal name. 



EXTERNAL CALLS MADE BY OTHER MODULES 
NAME PUiLPOSE 

Not applicable for processes. 
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DA I A STRUCTURES USED 
NAME FIELD TYPE 


PURPOSE/VALUES 


Message 

Buffer 


Based 


Dynamically allocated, pointer 
qualified structure usea for 
passing messages. 


Beleasor 


Integer 


. Internal name of process 
releasing a message. 


Answer- 

Reguest 


Bit (1) 


Boolean indicating if answer 
required. 


Message- . 
Semaphore 


Integer 


Semaphore to be used in the 
answer. 


Buffer- 

Location 


Pointer 


Qualified I/O buffer contain- 
ing message to/from operator. 


Fieldl 


Integer- 


a) SSOpcom - Messae from Oper- 
ator System Communicator. 

b) $$JCL - Message frgm inter- 
face process. 


Field2 


Integer 


a) $$ADD - Task identifier to 
create an interface process 
and device ECB. 


Field3-6 


Integer 


Not used. 


Char- 

Fieldl 


Char (8) 


Identifies external name of 
the device to create/destroy. 


Char- 

Field2-4 


Char (8) 


Not used. 


MODULE DESCRIPTION 







Partially implemented process performing such functions as 
creating a device and its associated interface process; 
passing messages from the operator to the Operator System 
Communicator; etc. Impleraemtat ion limited until the hardware 
environment, JCL code, etc. are defined. 
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MODULE IMPLEMENTATION 



/{INCLUDE NAMCHGR; /***** INPUT CONTROLLER *****/ 

(CHECK (ERROR)); 

INP UT_C CNTRCILEB : PROC OPTIONS (MAIN) ; 

/(INCLUDE SIMULTR; 

SIM_STAET (PROCESS_INPUT_CONTROLLER) 

/* ********************** ***** 
THIS MODULE HAS BEEN IMPLEMENTED TO CENTRALIZE ANC 
FACILITATE THE "INPUT' 1 OPERATIONS FROM VARIOUS DEVICES. 
IT PERFORMS SUCH FUNCTIONS AS CREATING AND DESTROYING 
INTERFACE PROCESSES AND DEVICE RCB'S; ENTERING A JOE'S 
«JCL IN THE JOB QUEUE; RELEASING MESSAGES TO THE INI- 
TIATOR WHEN A JOB IS READY FOR CREATION; AND PASSING 
MESSAGES TO THE OPERATOR SYSTEM COMMUNICATOR. ***/ 

^INCLUDE GENLEC; 

^INCLUDE REQEELD; 

/{INCLUDE PCEECL; 

/(INCLUDE RCEECL ; 

^INCLUDE CASESTM; 

ON CHECK (ERROR) 

BEGIN; 

IE (ERROR 1 = 0) THEN DO; 

(NCCHECK (ERROR) ) : 

EEGIN ; 

FIELD1 = RELEASOR; 

FIELD2 = ERROR; 

MSG SEMAPHORE = 0; 

ANSWER REQUEST = FALSE; 

CALL PRIMITIVE RELEASE (ANYPRCC/SEREOR, MESSAGE, 
' T ERROR) ; 

ERROR =0; 

END; 

GO TO START; 



J(INCLUDE RRMSG ; 

ECL ERROR FIXED BINARY STATIC INIT (0) ; 

DCL (S OR P, NRPGS,PRI,PINAME,RINAME, CHILD, INTRPTHE) 
FIXED BINARY; 

DCL FOUND BIT (1) ; 

DCL ( PX N A ME , R X N A M E) CHAR (8) STATIC; 

DCL PGT ABVEC ( 1 ) FIXED BINARY; 

DCL STATE VEC(IO) FIXED BINARY (31,0); 

DCL RES V"EC (SEM L LIMIT : PCT U LIMIT) BIT (2) ; 

DCL NRDIVIC^S FIXED BINARY STATIC INIT(O); 

DCL TEMP PIR POINTER; 

DCL BUM MI (16) BIT (1) : 

DCL II FIXED BINARY (15) STATIC INIT(I), 

10 FIXED BINARY (15) STATIC INIT (0) , 

• NUIP POINTER STATIC ; 

NULE = NULL; 
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START : DC FOREVER; 

CALL PRIMIIIVE_REQUEST (ANYPROC,$INPUT, MESSAGE, ERRCR) ; 
SIM IN1EBRLPT PT 



CALL MESSAGE 
DO ACTION OF 
CASE (1) ; 7* MESSAGE 

/*** 



COMMUNICATOR 



INTERPRETER; 

CASE (I) ; 

FROM OPERATOR-SYSTEM 

TO ADD AN INPUT DEVICE */ 

GET DATA FROM THE DIRECTORY REQUIRED TO 
CREATE AN INTERFACE PROCESS AND DEVICE 
RCB. ***/ 

CALL DEVICE DI RECTORY (CHAR FIELD1,S OR P, 

PXNAME,TTRPGS,PGTABVEC,7RI,INTRPTNR7FCUND) ; 
IF (FOUND = TRUE) THEN DO; 

RXNAME = CHAR FIELD 1; 

CALL PRIMITIVE PCBDATA ( M YNA K E, a)GET , SCHILD , 

CHILD, ERROR) ; 

STATE VEC ( 1 ) = PGTABV EC ( 1 ^ ; 









/ 



/ 



/ 



STATE - VEC ( 2) = 1 



/* IC REGISTER */ 



CREATE PCB FOR INTERFACE PROCESS ***'/ 

CALL GETPCB (MYN AME, CHILD , PXNAME,PRI, TRUE, 
STATE VEC, PINAME, 10, ERROR) ; 
RESET FAMILY LINKAGE. ***/ 

IF (CHILD 0) THEN 

CALL PRIMITIVE PCBDATA (CHILD ,a)PUT , 

— a)LF TSIB , PI NAME , ERROR) ; 
CALL PRIMITIVE PCBDATA (BYNAME, a)PUT,a)CBILD, 

PINAME, ERROR) ; 

*** CREATE AN RCB FOR THE DEVICE. ***/ 

CALL CREATE RCB (#DEVICE. RXNAME, PI NAME , 10, 

S OR PTC ') ,INTRPTNfi, 10,10, RINAKE, 
EI5ROT5) * 

/* SET UP RESOURCE ACCESS VECTOR */ 

RES VEC = ' 00 ' B; 

RES - VEC (RIRAME) = f?*ACCES; 

_ # #ACCES ; 

If #ACCES ; 

# U ACCES ; 

## ACCSS ; 

= ##ACCES; 

= If # ACCES ; 

= ## ACCES ; 

^ nnxjL _ ## ACCES* 

CALX PRIMITIVE PCBDATA (PINAME, ©PUT ,5)EFSVEC, 
SEM L LIMIT7PCT U LIMIT, RES VEC, ERROR) ; 
INSERT - PXGS TABLE VECTOR AND MESSAGE EUFFER 
POINTER IN THE PCB. ***/ 

CALL PRIMITIVE PCBDATA (PIN AME , 3PUT , SBRMVEC , 
II ,NSPGS7PGTABVEC, ERROR) ; 

ALLOCATE MESSAGE EUFFER SET (TEMP PTE); 

CALL PRIMITIVE PCBDATA (PI NAME, a>PUT , EM SGPTR, 

TEMP PTE, ERROR); 

(ENTI- 



RES' 

RES' 

RES' 

RES' 

RES' 

RES' 

RES* 

RES' 



'VEC 

'VEC 

'VEC 

'VEC 

'VEC 

'VEC 

'VEC 

'VEC 



SIBUPF i 

simput' 

SSPACE 

SERROR 

SFILEOP 

EINTRPT 

SINTDEV 

Sw AIT) 









id; 






■ rir,.i 

RELEASE MESSAGE TO THE NEW T-ROCESS 
FYING THE DEVICE INTERNAL NAME. ***/ 

FIELD 1 = RINAME: 

CALL PRIMITIVE RELEASE (PINAME, SINTDEV , 

MESSAGE, ERROR) ; 

ALLOCATE AND RELEASE INPUT EUFFERS TO BE 
USED BY THE NSW PROCESS. ***/ 

FIELD1 , FIELD2, FIELDS, EIELD4 = 0; 

MSG SEMAPHORE = 0; 

ANSWER REQUEST = FALSE; 

CHAR FIELD 1 , CHAR FIELD2 = ' •; 

ALLOCATE INPUT BUFFER SET (IBUFPTR) ; 
BUFFER LOCATION = IBUFPTR; 

CALL PRIMITIVE RELEASE (PIN AM E.SIBUFF, 

MESSAGE, ERROR) ; 
ALLOCATE INPUT BUFFER SET (IBUFPTR) ; 
BUFFER LOCATION = IBUFPTR; 

CALL PRIMITIVE RELEAS E (PI N A M E , $IBU FF , 

MESSAGE, ERROR) ; 
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/*** INSERT THE PROCESS ON THE READY ACTIVE 

QUEUE AND ENABLE THE DEVICE INTERRUPT. ***/ 
NRDEVICES = NRDEVICES + 1: 

CALL PRIMITIVE INTERRUPT ENABLER (INTEPTNR, 

DUMMY) ; 

CALL RCBPDTQ (#REDYA,#OS,PINAME,IO,PRI,NULP, 
10, ERROR) ; 

FIELD1 = SSOPCOM ; 

FIELD2 = $$D0NE ; 

END; 

ELSE DO; FIELD2 = $$FAIL; 

CHAR EIELD2 = 'BAD NAME'; 

END: 

/*** RELEASE ACTION TAKEN MESSAGE TO 
SYSTEM COMMUNICATOR. 

CALL PRIMITIVE RELEASE (ANYPRCC, $OPR 



OPERATOR 

10 , 



ENECASE ; 
CASE (2) : 



ENECASE i 
CASE (3) ; 



MESSAGE, ERROR) 

/* MESSAGE FROM OPERATOR SYSTEM 

COMMUNICATOR; DELETE A DEVICE */ 

CALL FIND_INAME (#D£VICE,CHAR FIEID1, RENAME, 

ERROR) 

CALL PRIMITIVE RCBDA TA (RI NAME , #GET, #0 WNER , 

PINAME, ERROR) ; 

/* DISENABLE THE INTERRUPT, LOCATE AND FREE 
BUFFERS, DESTROY OUTSTANDING FILES, 
OUTPUT MESSAGE TO OPERATOR CONCERNING 
USER PROCESS EFFECTED, DESTROY DEVICE 
RCB AND PROCESS PCE, RELEASE ACTION 
DONE MESSAGE TO OPERATOR-SYSTEM 
COMMUNICATOR. ALL TO BE IMPLSMETED 



V 



;/* 



DC! 

DCL 

DCL 



IF 



INFORMATION UNTIL 
JOB IN JOE QUEUE 



EOF. 



■ all (1) ; 

( 2 ) ; 



END 



ENECASE; 
ENE_OF_ CASES ; 



SAVE JCL AND FILE 
IF EOF, ENTER NEW 
JCLCODE CHAR (2) ; 

MSG PT FIXED BINARY I . 

M SG — LEN FIXED BINARY INIl' 

IBUFPTR*"= BUFFER LOCATION; 

JCLCODE = SUBSIRlIBUFPTR -> IN BUFF, 

MSG PT , MSG LEU) ; 

(JCLCODE = »o)S') THEN DOf /* OPCOM MSG */ 

FISLD2 = 3S0PRTR; 

FIELD 1 = SSOPCOM; 

ANSWER REQUEST = FALSE; 

CALL PRIMITIVE RELE AS E ( AN YPRCC , SOP E IC, 

MESSAGE, ERROR) ; 

END ; 

SAVE JCL FOR THE PROCESS, FILE INFO, 
OR ENTER IN JOB QUEUE IF JOB EOF. 



V 



/* ELSE DO; 



V 



SIM END 



MESSAGE INTERPRETER: PROC; 

/* THIS SUBROUTINE DETERMINES WHO DID THE RELEASE ON 

3INPUI AND WHAT ACTION IS REQUIRED. */ 

IF ( (f IEIB1 = 330PC0H) & (FIELD2 = $$ ADD) ) THEN 1 = 1; 

ELSE IF ( (FIELD1=$S0?C0M) & (FIELD2 = S$DELET) ) THEN 1=2; 
ELSE If (FIELD 1 = SSJCL) THEN I = 3; 

ELSE ERROR = 304; 

END MESSAGE INTERPRETER; 

END INPUT CONTROLLER; 
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MODULE SPECIFICATION 



NAME; OUTPUT CON T ROLLER TYPE: PROCESS 

PARAMETERS 

IN PUT OU TPUT T YPE CONTENTS 

Not Applicable: All communications handled via messages. 



EXTERNAL CALLS MADE TO OTHER MODULES 



NAME PARAMETERS 

Reguest Process I-Narae, 
Semaphore, 
Message Pointer, 
Error Parameter 



PU RPOS E 

a) SOutput - Semaphore used to 
identify messages for this 

S rocess. 

Obuff - Semaphore used to 
obtain an output buffer, 
c) SPrintq - Semaphore used to 
get next print job. 



Release Process I-Name, a) 

Semaphore , 

Message Pointer, 

Error Parameter b) 



c) 

d) 



e) 



f) 



$Error - Semaphore used to 
send messages to the Error 
Handler. 

SIntdev - Semaphore used to 
send message to an inter- 
face process to identify a 
device internal name. 

$Obuff - Semaphore used to 
release output buffers. 
$0pr_I0 - Semaphore used to 
send messages to Operator 
Svstem Communicator in ■ 
reply to SSGICOK messages. 
SPutout - Semaphore used to 
send output commands to in- 
terface processes. 

$ File op - Semaphore used to 
send messages to the File 
Manager to open, read or 
destroy a file. 



Find Process X-Name, 

Piname Process I-Narae, 

Error Parameter 



Entry point to PCB Handler 
used to obtain the internal 
name of a process identified 
by external name. 



Device Resource X-Name, 
Directory Access Identifier, 
Prccess X-Name, 
Page Table Length, 
Page Table vector. 
Priority. 

Interrupt Number, 
Located- Eoolean 



This module is invoked tc get 
data which identifies a device 
interface process and which is 
required to create a PCB and 
an RCB for the interface pro- 
cess and device, respectively. 



PCBData Process I-Name, Generic entry point to PCB 

Put/Get Identifier, Structures module to enter or 
Field Identifier, obtain data. 

Data Parameter, 

Error Parameter 



PCBData Prccess I-Name, 

Put/Get Identifier, 
Field Identifier, 
Vector Lower Limit, 
Vector Upper Limit, 
Vector Parameter, 
Error Parameter 



Generic entry point to PCB 
Structures module to enter or 
obtain data or portions cf the 
data stored as a vector (i.e.. 
Resource Access Vector, Page 
Table Vector, etc.). 
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BCBData 



RCBFUTQ 



Find 

I-Name 



Resource I-Name, Generic entry point to RCB 
Put/Get Identifier, Handler module to enter cr get 
Field Identifier, data concerning a resource, 
Data Parameter, 

Error Parameter 



Resource I-Name, 
Left/Right Queue, 
Process I-Name, 
Data Parameter, 
Priority , 

Message Pointer, 
Data Parameter, 
Error Parameter 

Resource Type, 
Resours-e x-Name, 
Resource I-Name, 
Error Parameter 



Entry point to RCB Handler 
used to insert a process 
or a message on a specified 
resource queue by priority. 
Queues use! by this process 
are the message semaphore and 
the Ready Active queues. 



Entry point to RCB Handler 
•used to get the internal name 
for the resource specified by 
type (file, device, etc.) and 
external name. 



Interrupt Interrupt Number, 
Enabler Interrupt Save- 
Vector 



Interrupt Interrupt Number, 
Disabler Interrupt Save- 
Vector 



Create Resource Type, 

RCB Resource X-Name, 

Resource Owner. 
Sz-Cntr Parameter, 
Access Identifier, 
PCI Name, 

Dev/Int Identifier, 
File Descriptor, 
File Descriptor, 
Resource I-Name, 
Error Parameter 



This module is invoked tc en- 
able a specific interrupt or 
enable all interrupts disabled 
by this process. 

This module is invoked to dis- 
able a specific or 
all interrupts and saving the 
status of the interrupts in 
a save-vector for enabling. 

Entry point to RCB Handler 
used to create an RCB of the 
type specified; enter descrip- 
tor data in the appropriate 
RCB fields; and return the 
resource internal name. Not 
all fields are used by each 
type of resource. 



GETFCB Parent I-Name, 
Rgt-Sib I-Name, 
Process X-Name, 
Priority , 

System Process ID, 
Init State Vector, 
Process I-Name, 
Cyclic Process Id, 
Error Parameter 



Entry point to PCB Structures 
used to create a PCB for a 
process; enter data in the PCB 
fields; and return the process 
internal name. 



EXTERNAL CA1LS BADE BY OTHER MODULES 
NAME PURPOSE 



Not applicable for processes. 



DATA STRUCTURES USED 

NAME FIELD^, TYPE PU R POSE/ VALUE S 

Message Based Dynamically allocated, pointer 

Buffer qualified structure used for 

passing messages. 



89 





Releasor 


Integer 


Internal name of process 
releasing a message. 




Ansver- 

Seguest 


Bit (1) 


Boolean indicating if answer 
required. 




Messaqe- 
Semapnor e 


Integer 


Semaphore to be used in the 
answer. 




Buffer- 

Location 


Pointer 


Qualifies an output buffer 
used to store data read from 
files and to pass data for 
output to an interface 
process . 




Fieldl 


Integer 


a) $$OPCOM - identifies a 
message from the Operator 
System Communicator. 

b) '$'i>'TERM - identifies a mes- 
sage from the Terminator to 
print a job. 

c) SPREAD, J^EOF or $$OPENF - 
identifies message-type 
answer from File ilanager. 




Field2 


Integer 


a) $$PASS - pass message to 
the system operator. 

b) $$ADD ( $$DELET or S$SI0P - 
identifies task specified 
by the Operator System 
Communicator. 

c) File internal name to be 
printed. 




Field3 


Integer 


File record to be printed. 




Fi eld4 


Integer 


Not used. 




Char- 

Fieldl 


Char (8) 


File external name. 




Char- 

Field2-4 


Char (8) 


Not used. 


Output 

Adman 

Table 




Array 


This structure is used tc 
determine availability of de- 
vices, the interface process 
internal name, and the file 
being printed cn that device. 




Interface 

Process 


Integer 


Process internal name. 




Assigned 


Bit (1) 


Identifies available devices. 




File Name 


Integer 


File internal name. 



K0DULE_DZ£CRIPT10ji 

The Output Controller performs such functions as creating 
and destroying interface processes and aevice RCb's; 
assigning output files to the device^ opening and destroy- 
ing output files; passing outout burners with rile cl? to or 
system messages to the appropriate device; etc. 
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MOD ULE IMPLEMENTATION 



^INCLUDE NAMCHGR; /***** OUTPUT CONTROLLER ***♦*/ 

(CHECK ( ZSEOR) ) : 

OUTPUT_CCNXECLLEB: PROC OPTIONS (MAIN) ; 

/*********************** * * * * * 

THIS PROCESS HAS BEEN IMPLEMENTED TO CENTRALIZE AND 
FACILITATE THE "OUTPUT" REQUIREMENTS TO VAExOUS DEVICES 
THAI MAI, AND GENERALLY DO, EXIST IN AN ALL APPLICATION 
COMPUTER SYSTEM. THE PROCESS INTERACTS THROUGH THE USE 
OF MESSAGES TO AND FROM OTHER PROCESSES SUCH AS THE 
TERMINATOR, OPERATOR SYSTEM COMMUNICATOR, FILE MANAGER, 
ERROR HANDLER, AND VARIOUS INTERFACE PRCCESSES. IN 
ADDITION, IT INVOKES SEVERAL OF THE PRIMITIVES TO 
ACCOMPLISH ITS FUNCTIONS. ****♦/ 

56INCLUDE SIMULTB; 

SIM_ST ART (EROCESS_OUTPUT^CONTROLLER) 

^INCLUDE GENLEC; 

^INCLUDE REQRELD; 

^INCLUDE CASESTM; 

55INCLUDE PCEECI; 

^INCLUDE RCBECL; 

ON CHECK (ERROR) 

BEGIN; 

If (ERROR -»= 0) THEN DO; 

(NOCHECK (ERROR)): 

BEGIN ; 

FIELD 1 = RELEASOR; 

MSG SEMAPHORE = SOUTPUT ; 

CALL PRIMITIVE RELEASE (ANYPROC,$ERROR, 

MESSAGE, ERROR) ; 

ERROR = 0; 

END ; 

GC TO START; 

END; 

END ; 

^INCLUDE RRMSG; 

DC1 1 OUTPUT ADMIN TABLE (10) STATIC, 

2 INTI PRSCS FIaED BINARY INIT {(10) 0), 

2 ASSIGNED BIT ( 1 ) INIT((10)(1) ' O'B), 

2 FI NAME FIXED BINARY INIT(jlO) 0); 

DCL CPE CUT DEV FIXED BINARY STATIC; 

DCL CUT“JOEL FIXED BINARY STATIC; 

DCL NRDL VICES FIXED BINARY STATIC INIT (0) ; 

DCL II FIXED BINARY INII(1); 

DCL NULF POINTER; ' ' 

DCL NEW DEVICE FIXED BINARY; 

DCL I FIXED BINARY STATIC; 

DCL RECORD FIXED BINARY STATIC; 

DCL ERROR FIXED BINARY STATIC INIT (0) ,* 

DCL INAMF FIXED BINARY; 

DCL EUFFER USED BIT(1) STATIC INIT('I'E); 

DCL EUFFER~POI NT EE POINTER STATIC; 
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START: DC FOREVER; 

IF EUFFFR USED THEN DO; 

/* GET ah output BUFFER V 
CALL PRIMITIVE_REQUEST (A N YPROC , $03U FF , MESSAGE, ERROR) ; 

SIM_INTEBRUPT_PT 

BUFFEF POINTER = BUFFER LOCATION; 

EUFFEfTUSED = FALSE; " 

END; 

CALL PR IK IT I VE_ REQUEST ( AN YPR CC , $0 UTPU I , HESSAG E , ERROR) ; 

SIK_I NTERR UPT_PT 

CALL BESSAGE_INTERPRETER; 

DO ACTION OF CASE (I) ; 

£ASE ( 1 \ 7 

/* OPERATOR SYSTEM COMMUNICATOR MESSAGE */ 

IF (FIELD2 = S$PASS) THEN 

/*** OUTPUT THE MESSAGE ***/ 

CALL PRIMITIVE RELEASE (OPR OUT DEV,$PUTOUT, 

MESSAG E7 ERROR) ; 

ELSE DO; 

/*** PERFORM TASK SPECIFIED ***/ 

CALL OP COMM MSG HANDLER; 

IF ( (NEDDEVICE -.= 0) & (OUT DOBS -•= 0)) THEN 
CALL START NEWJO& (NRDEVlCES) ; 

END; 

ENECASE; 

CASE (2): 

/* TERMINATOR MESSAGE */ 

/*** INCREMENT PRINT JOB COUNTER AND DUSTER El NE 
IF A DEVICE IS AVAILABLE. ***/ 

CUT JOBS = OUT JOBS + 1: 

DO I = 1 TO NRDEVlCES WHILE (ASSIGNED (I) ) ; ENL; 

IF (I <= NRDEVlCES) THEN CALL START NEWJOB (I) ; 
ENDCASE; 

CASE (3) : 

/* rlLE MANAGER MESSAGE */ 

CALL FILE MSG HANDLER ; 

ENLCASE: 

END OE CASES; 

END; “ “ 

MESSAGE INTERPRETER: PROC; 

/* Determine which process did a release on the 

SOUIPUT SEMAPHORE AND SET THE CASE STATEMENT 
INDEX ***/ 

IF (FIELD 1 = SSOFCOM) THEN 1 = 1; 

ELSE IF (FIELD1 = $ $ T E R M ) TEEN 1=2; 

ELSE 1=3’ 

END MESSAGE_INTEHPREt£r; 
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CP COMM MSG HANDLES: PROC; 

”/* ^KE TUE APPROPRIATE ACTION: I.E., ADD A DEVICE AND 
AN INTERLACE PROCESS, DELETE A DEVICE AND INTERFACE 
PROCESS, OR STOP PRINTING A JOB. */ 

DCL (S OR P,NRPGS,PP.I,PINAME / HINAME,CHIID / INTRNE , INDX) 
FIXED felNABY; 

POUND BIT (1) ; 

(PXNAME, RXNAME) 

PGTABVEC(I) 



DCL 

DCL 

DCL 

DCL 

DCL 

DCL 

DCL 



it 



STATIC; 



= 3 



5) CHAR (8 

FIXED BINA«* , 

STATE VEC! (10) FIXED BINARY (31,0); 

RES VEC (S EM L LIMIT : PCT U LIMIT) BIT (2) 

EUM116) BIT"? 17 ; 

TEMP PTR POINTER: 

/* DETERMINE ACTION REQUIRED AND SET INDEX */ 

IF (EIELD2 = SSADD) THEN INDX = 1; 

ELSE IF (FIELD2 = SSDELET) THEN INDX = 2 
ELSE IF (FIELD3 = S$STOP) THEN INDX 
ELSE ERROR = 306; 

DO ACTION OF CASE (INDX); 

“CASE (IT: /* ADD A DEVICE AND INTERFACE PROCESS. */ 

RXNAME = CHAR FI ELD 1 ; 

CALI DEVICE DIRECTORY (RXNAME, S OR P , PXNAME , NRPGS , 

PGTABVEC,PRI,INTRNR, FOUND) ; 

IF (FOUND = FALSE) THEN DO; 

/*** INVALID EXTERNAL NAME ***/ 

FIELD2 = $$FAIL; CHAR FIELD2 = 'BAD NAME'; 

END; 

ELSE DO; 

/*** CREATE PC3 FOR INTERFACE PROCESS, SETUP 

FAMILY LINKAGE, AND CREATE DEVICE RCB. ***/ 
CALL PRIMITIVE PCBDATA (MYNAME , aGET, a)CHIL£ , 

CHILD , ERROR) ; 

STATE VEC ( 1 ) = PGTABVEC ( 1) ; 

VEC (2) =1; /* IC REGISTER */ 

UETPCB (MYNAME, CHILD, PXNAME ,PRI, TRUE , 

STATE VEC , PI NAM E , (0) , ERROR) ; 

IF (CHILD 0) THEN- 

CALL PRIMITIVE PCBDATA (CHILE, alPUT, SLFTSIB, 

PI NAME, ERROR) ; 

CALL PRIMITIVE PCBDATA (M YNAME , SPUT , alCHIL 

PINAME, ERROR) ; 

CALL CREATE RC B ( #D E VICE , RX S A M E , PIN AME 
S OR P ,7 ' •) , I NTRNR , (0) , (C 

/* SET UP RESOURCE VECTOR FOR 
RES VEC = * 00 1 B ; 

RES - VEC (RINAHE) = ##ACCES; 

- i4>?UTOUT) = RECCES; 

SERKOR) = ## ACCES; 

SOBUFF) = # t ACCES ; 

SINTEPT) = #*ACCES; 

[SIMTDE V) = ##ACCES; 

$ W AIT) = # # ACCES ; 

PCBDATA (PINAME 



STATE" 
CAJ 



j L , 



.RXNAME 
?INAME V 



£ / E i 



OR) 



EES 

RES" 

RES" 

RES" 

RES" 

RES" 




CALE PBIHIT 



C.PUT, S R ES VEC , 




CALL 

/#*# get 

ALLOCATE 
CALL 

'TEMP 

/*** RELEASE MESSAGE TO THE PROCESS 
THE DEVICE INTERNAL NAME. 
FIELD1 = RINAHE 
CA 



MESSAGE BUFFER SET (TEMP PTR) 
PRi;iITIV£_PCBDATA (PIN AME , £ PuT , a)M SGPTR , 



PTE, ERROR] 

- IDENTIFYING 






ILL PRIMITIVE ftEI. EASE (PINAME, JINTDEV, 

MESSAGE, ERROR) ; 
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/*** GET OUTPUT BUFFERS AND INSERT ON THE 

AVAILABILITY QUEUE (RELEASE MESSAGES) . ***/ 
FIELD1,FIELD2,Fl£LD3,FIELD4 = 0; 

MSG SEMAPHORE =0; 

ANSWER REQUEST = FALSE: 

CHAR FT EL D1, CHAR FISLD2 = * •: 

ALLOtATE OUTPUT "BUFFER SET (OBUEPTR) ; 

BUFFER LOCATION - = OBUFPTR; 

CALL PlIMITIVE RELEASE (MYNAME ,$OBUFF. 

MESSAGE. ERROR) ; 

ALLOCATE OUTPUT BUFFER SET (OBUFPTR) ; 

BUFFER LOCATIONS OBUFPTR; 

CALL PRIMITIVE RELEASE (MYNAME ,$OBUFF, 

MESSAGE , ERROR) ; 

/*** INITIALIZE LOCAL VARIABLES AND INSERT 
THE INTERFACE PROCESS ON THE READY 'A' 
QUEUE. ENABLE THE DEVICE INTERRUPT. ***/ 
NRD E VICES = NRDEVICES + 1; 

INTP PROCS (NRDEVICES) = PINAME: 

IF ("NRDEVICES = 1) THEN OPR OUT DEV = PINAME; 
CALL PRIMITIVE INTERRUPT ENaELZK (INTRNR, EUM) ; 
NULP = NULL; - 

CALL RC3PUTQ ( #REDYA , #OS , PI NAME, (0) ,PRI,NULP, 

(0) , ERROR) ; 

NEWDEVICE = PINAME; 

FIELD1 = tf$OPCOil; 

FIELD2 = $$DONE ; 

END; 

/*** RELEASE ACTION TAKEN MESSAGE 
SYSTEM COMMUNICATOR 

CALL PRIMITIVE RELE ASE (AN YPROC , $OPR 10, MESSAGE , 

ERROR) ; 

ENECASE; 



TO 



OPERATOR 



CASE (2) : 



/* 



DELETE A EEVICE AND DESTROY THE 
I NT ERL’ ACE PROCESS */ 

CALI FIND INAHEi#DEVICE ,CHAR FIELD 1 , RINAHE , ERROR) ; 
CALI PRIMITIVE EC B DAT A (RI NAME ,# GET , #DI NAM E , INTRNR , 

ERROR) ; 

CALL PRIMITIVE INTERRUPT DISENA3LER (INTRNR , DU K) ; 

/* LOCATE BUFFERS AND DESTROY THEM, 

DESTROY RCB , PCB, MESSAGE CONTAINER 
AND ALL OUTSTANDING EELEASES/RSQ UESTS 
CONCERNING THE INTERFACE PROCESS */ 



ENECASE ; 

CASE (3): /* STOP PRINTING CURRENT JOB */ 

/*** GET INTERNAL NAME OF THE EEVICE AND 

INTERFACE PROCESS. ***/ 

RXNAME = CHAR FIELD 1; 

CALL FIND INA"HE(#DEVICE, RXNAME, INAMZ, ERROR) ; 

CALL PRIMlTIV£_RCBDAIA (INAME^ tfGET , # OWNER, PINAME, 

DO I = 1 TO NRDEVICES 

WHILE (INTF PROCS (I) -»= PINAME); END; ‘ 

/*** RESET LOCAL VARIABLES, RELEASE MESSAGE TO 
OPERATOR SYSTEM COMMUNICATOR, AND 
CHECK FOR NEW JCB TO PRINT. ***/ 

FINAME (I) = 0; 

ASSIGNED (I) = '0*3; 

FIELD 1 = $$OPCOM; 

EIEID2 = SBDONE; 

CALL PRIMITIVE RELEASE (ANYPROC, $0PR 10, MESSAGE, 

ERROR) ; 

IF (OUT JOBS i= 0) THEN CALL START NEWJ03 (I) ; 
ENECASE; - 
END CE CASES: 

END OT C"CMM MSG HANDLER; 
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PILE MSG HANDLER: PROC; 

/5 THIS SUBROUTINE PASSES OUTPUT BUEFERS TO THE 

APPROPRIATE OUTPUT DEVICE: CHECKS FOR OUTSTANDING 
JOBS TO PRINT; IF ANY, GETS THE FILE NAME FROM 
PRINT QUEUE AND ASSIGNS THE FILE TO THE DEVICE 
FCR PRINTING. ***/ 

DCL FXNAME CHAR(8) STATIC: 

DO I = 1 1(3 NRDEVICES WHILE (FI NAME (I) -= FIE1D2) ; 
END; 

/*** PASS OUTPUT BUFFER TO APPROPRIATE 

INTERFACE PROCESS. ***/ 

IF (FIELD 1 = $$READ) THEN DO; 

RECORD = FIELD3 +1; 

MSG SEMAPHORE = SOUTPUT; 

CALL PRIMITIVE R ELEA SE (INTF PROCS (I) , $ PUTO UT , 

. “ MESSlGE, ERROR) : 

/*** GET ANOTHER OUTPUT BUFFER, INITIALIZE 
MESSAGE BUFFER., AND .RELEASE MESSAGE TC 
FILE MANAGER TO READ THE NEXT RECORD. ***/ 
EUFFER LOCATION = BUFFER POINTER; 

FIELD1 - = SSREAD; 

FIELD2 = FI NAME (I) ; 

FIELD3 = RECORD; 

FIELD4 , FIELD5 , FI EL Do = 0; 

CHAR FIELD 1 , CH AR FIELD2, CHAR FIELD3 , 

CHAR FIELD4 = • ' ; 

MSG SEMAPHORE = SOUTPUT; 

ANSWER REQUEST = TRUE; 

CALL PRIMITIVE RELEASE (AN YPROC , $FILE0P, HES SAGE, 

ERROR) ; 

BUFFER USED = TRUE; 

END; 

ELSE IF (FIELD 1 = $$EOF) THEN DO; 

/*** PRINT TASK FINISHED: REINITIALIZE LOCAL 

VARIABLES, TEST FOR NEH PRINT JOB, RELEASE 
THE OUTPUT BUFFER, AND RELEASE MESSAGE TO 
FILE MANAGER TO DESTROY THE FILE ***/ 
ASSIGNED(I) = FALSE; 

FI NAME (I) =f 0 ; 

IF (OUT JOBS -■= 0) THEN CALL START NEK JOB (I) ; 
CALL PRIMITIVE RELEASE (MY NAM E , SOBUPF , MESSAGE, 

ERROR) ; 

FI ELD 1 = $$DSTYF; 

CALL PRIMITIVE RELEASE (AN YPROC, 3FILEOE, 

MESSAGE, ERROR) ; 

END; 

ELSE DO; /* FILE OPENED */ 

/*** GET OUTPUT BUFFER, INITIALIZE MESSAGE 

BUFFER, AND RELEASE MESSAGE TO THE FILE 
MANAGER TO READ THE FIRST RECORD. ***/ 

BUFFER LOCATION = BUFFER POINTER; 

FIELD"! - = SSREAD; 

FIELD2 = FINAME (I) ; 

FI ELD 3 = 1; 

FIELC4, FIELDS, FIELDb = 0; 

CHAR F'lELDI , CH AR FIELD2 , CHAR FIELD3 , 

Char field4 = 1 ' ; 

MSG SEMAPHORE = SOUTPUT; 

ANSWER REQUEST = TRUE; 

CALL PRIMITIVE RELEASE (ANYPHOC, $FILEOP , 

MESSAGE, ERROR) ; 

BUFFER USED = TRUE; 

END; 

END FILE MSG HANDLER; 
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/*** THIS SUBROUTINE OBTAINS THE EXTERNAI NAME CF THE 
FILE TO BE PRINTED FROM THE PRINT QUEUE (CHAE- 
f IELD1) , RELEASES A MESSAGE TO THE FILE MANAGER 
TO OPEN THE FILE FOR A READ OPERATION, UPDATES 
LOCAL VARIABLES TO REFLECT THE ASSIGNMENT, ANE 
CHANGES OWNERSHIP OF THE FILE TO THE OUTPUT 
CONTROLLER. ***/ 

START NEW JOB : PROC(INDEX) ; 

DCL - INDEX FIXED BINARY; 

CALL PRIMITIVE REQUEST (ANYPROC , $PRIN TQ , MESS AGE , ERROR) ; 

FIELD 1 = S30PEFJF; 

FIELE2 = # #READ 

MSG SEMAPHORE = $OUTPUT; 

ANSWER REQUEST = TRUE; 

CALL PRIMITIVE RELE ASE (A N YPR OC , $FI LEOP , MESSAGE , ERROR) ; 

ASSIGNED (INDEXJ = TRUE; 

FINAME (INDEX) , INAME = FIELD2 ; 

OUT JCBS = OUT JOBS - 1; 

CALX PRIMITIVE-RCBDaTA (I NAME , if PUT, CORNER , BYNAME , ERROR) ; 

END START^NEWJOB! 

SIM_END 

END OUTPUT CONTROLLER;- 
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MODULE SPECIFICATION 



NAME: INIT IATOR . TYPE: PRO CESS 

PARAMETERS 

INPUT OU TPUT TYPE CONTENTS 

Not Applicable: All communications handled via messages. 



EXTERNAL CALLS MADE TO OTHER 
NAME PARAMETERS 

— — — - — T — 

Request Process I-Name, 
Semaphore, 

Message Pointer, 
Error Parameter 



*«**««*******«j^ 0 ( j u l e impiem 



MODULES 

P URP OSE 

a) Slname - Semaphore used to 
limit the number of proces- 
ses in the system. Requests 
decrement counter while re- 
leases by Terminator incre- 
ment the counter. 

b) SNewjob - Semaphore used to 
identify messages to this 
process. 

tation Incomplete******** ****** 



*****************£ n ti c ip a t e d External calls***************** 



PCBData 


Process I-Name, 
Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 


Generic entry point to PCB 
Structures module to enter or 
obtain data. 


PCBData 


Process I-Name, 
Put/Get Identifier, 
Field Identifier, 
Vector Lower Limit, 
Vector Upper Limit, 
Vector Parameter, 
Error Parameter 


Generic entry point to PCB 
Structures module to enter or 
obtain data or portions cf the 
data stored as a vector (i.e.. 
Resource Access Vector, Page 
Table Vector, etc.). 


RCBData 


Resource I-Name, 
Put/Get Identifier, 
Field identifier. 
Data Parameter, 
Error Parameter 


Generic entry point to ECB 
Handler module to enter cr get 
data concerning a resource. 


RCBPUTQ 


Resource I-Name, 
Left/Right Queue, 
Process I-Name, 
Data Parameter, 
Priority . 

Message Pointer, 
Data Parameter, 
Error Parameter 


Entry point to RCB Handler 
used to insert a process 
or a message on a specified 
resource queue by priority. 
Queues used by this process 
are the message semaphore and 
the Ready Active queues. 


GETPCB 


Parent I-Name, 
Hgt-Sib I- Marne, 
Process X-Name, 
Priority , 

System process ID, 
Init State Vector, 
Process I- Name, 
Cyclic Process Id, 
Error Parameter 


Entry point to PCB Structures 
used to create a PCB for a 
process;, enter data in the PCD 
fields; and return the process 
internal name. 
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Create 

RCB 



Find 

I-Name 



Resource Type, 
Resource X-Name, 
Resource Owner. 
Sz-Cntr Parameter, 
Access Identifier, 
PCT Name, 

Dev/Int Identifier, 
File Descriptor, 
File Descriptor, 
Resource I-Name, 
Error Parameter 



Entry point to RCB Handler 
used to create an RCB of the 
type specified; enter descrip- 
tor data in the appropriate 
RC3 fields; and return- the 
resource internal name. Not 
all fields are Used by each 
type of resource. 



Resource Type, 
fiesourse X-Name, 
Resource I-Name, 
Error Parameter 



Entry point to RCB Handler 
used to get the internal name 
for the resource specified by 
type (file, device, etc.) ana 
external name. 



RCBGETQ Resource I-Name, 
Left/Right Queue, 
Process I-Name, 
Q_Eata Parameter, 
Message Pointer, 
Q_Data Parameter, 
Found Boolean, 
Q_Status Boolean, 
Error Parameter 



This entry point to RCB Hand- 
ler is used to remove a pro- 
cess from the specified queue 
for the indicated resource. 

The data stored in the queue 
are returned if the process is 
found and the queue status is 
also provided. 



RCB-'-Find Resource I-Name, 
Left/Right Queue, 
Find Operation, 
Queue Position, 
Process I-Name, 
Data Parameter, 
Data Parameter, 
Error Parameter 



This entry point to RCB Hand- 
ler is used to determine queue 
position of a process and put 
or get a copy of data. The 
rocess, position, or both may 
e specified tc select a spe- 
cific process, any process at 
the specified position or a 
specific process at a speci- 
fied position. 



EXTERNAL CALLS MADE BY OTHER MODULES 
NAME , P URPOSE 

Not applicable for processes. 
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DATA STE UCIU5ES USED 



NAME 


FIELD 


TYPE 


PURPOSE/VALUES 


Message 

Buffer 


— 


Based 


Dynamically allocated, point 
qualified structure used for 
passing messages. 




Releasor 


Integer 


Internal name of process 
releasing a message. 




Answer- 

fieguest 


Bit (1) 


Boolean indicating if answer 
required. 




Message- 

Semaphore 


Integer 


Semaphore to be used in the 
answer. 




Buffer- 

Location 


Pointer 


Not used. 




. Fieldl -6 


Integer 


Use undefined. 




Char- 

Fieldl-4 


Char (3) 


Use undefined. 



**************#£ 33 ^- 1 - ^ ona y structures Undefined************** 



WODULE_DESCKJ£TION _ 

Initiator design and implementation is incomplete: job 

types, JCI used, etc. must be known before i nplementat j on. 
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MODU LE I MPL EMENTATION 



^INCLUDE NAHCHGR; /***** INITIATOR *****/ 

(CHECK (ERROR) ) : 

INITIATOR: PROC OPTIONS (MAIN) ; 

^INCLUDE GENEEC ; 

^INCLUDE PCBDCL; 

^INCLUDE EEQRELD; 

^INCLUDE SRMSG : 

ON CHECK (ERROR) 

BEGIN; 

IE (ERROR -i= 0) THEN DO; 

(NOCHECK (ERROR) ) : BEGIN; 

HELD 1 = RELEASOR; 

IIELD2 = ERROR; 

CALL PRIMITIVE RELEASE (AN YPR OC , $ERROR, MESS AGE , 

ERROR) ; • 

GO TO START; 

END; 

END; 

END; 

DCL (NEW P I NAME, PARENT, PRIORITY) FIXED BINARY; 

DCL EXTIR-KAI NAME CHAR (8); 

DCL ERROR FIXTD BINARY STATIC INIT (0) ; 

START: 

DC FOREVER ; 

/*** CHECK FOR AVAILABLE PCB SPACE ***/ 

CALL PRIMITIVE_REQUEST (ANYPROC, SINAME, MESSAGE, ERROR) ; 

/*** GET next JOB TO BE CREATED ***/ 

CALL PRIMITIVE REQUEST (ANYPROC , SNEW JOE, MESSAGE , 

ERROR) ; 

/*** INTERPRET DATA FROM JOB QUEUE ***/ 

CALL JCL INTERPRETER; 

-r* 9 

/*** GET THE REQUIRED RESOURCES ***/ 

CALL GE1_REQUIRED_RBS OURCES ; 

/*** CREATE A PC 3 FOR THE PROCESS ***/ 

/#** CALL CREATE_PCB ***/ 

/#** FREE JOB QUEUE SPACE ***/ 

CALL PRIMITIVE RELEASE (ANYPROC, $JOBQSP, MESSAGE, 

ERROR) ; 

/*** INSERT THE PROCESS ON THE READY A QUEUE **/ 
CALL ECBPUTQ (#RED YA , # USER , P I NAME , (0) , PRIORITY , 
MSGPTR , (0) ,ERRDR7; 

END ; /* MAIN PROGRAM SCOPE */ 

JCL_I NT EEPRETER: PROC ; 

/* INTERPRET JCL TO IDENTIFY REQUIRED RESOURCES 

AND CAPABILITIES */ 

RETURN ; 

END JCL INTERPRETER; 

GET_ R E QU I RED_RE SOURCES : PROC ; 

/* VERIFY THAT THE PROCESS BEING CREATED CAN ACCESS 
THE RESOURCES HE REQUESTED ; CREATE RGB' AS 
NECESSARY AND SET UP ACCESS VECTOR */ 



RETURN ; 

END GET REQUIRED RESOURCES; 
END INITIATOR; 
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MODULE SPECIFICATION 



NAME: TERMI NATO R TYPE: PROCESS 

PARAMETERS 

INP UT OJjJPUT TYPE CONTENTS 

Not Applicable: All communications handled via messages. 



EXTERNAL CALLS MADE TO OTHER MODULES 

NAME PARAMETERS PURPOSE 

Reguest Process I-Name, a) $Endjob - Semaphore used to 

Semaphore, identify messages to this 

Message Pointer, process. 

Error Parameter 



* ************* Module implementation incomplete************** 
************ *****Anticipa ted External Calls***************** 



Find 

Piname 


Process X-Name, 
Process I-Name, 
Error Parameter 


Entry point to PCB Handler 
used to ODtain the internal 
name of a process identified 
by external name. 


PCBData 


Process I-Name, 
Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 


Generic entry point to PCB 
Structures module to enter or 
obtain data. 


PCBData 


Process I-Name, 
Put/Get Identifier, 
Field Identifier, 
Vector Lower Limxt, 
Vector Upper Limit, 
Vector Parameter, 
Error Parameter 


Generic entry point to PCB 
Structures module to enter or 
obtain data or portions cf the 
data stored as a vector (i.e.. 
Resource Access Vector, Page 
Table Vector, etc.). 


RCEData 


Resource I-Name, 
Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 


Generic entry point to RCB 
Handler module to enter cr get 
data concerning a resource. 


RCBPUTQ 


Resource I-Name, 
reft/Right Queue, 
Process I-Name, 
Data Parameter, 
Priority , 

Message Pointer, 
Data Parameter, 
Error Parameter 


Entry point to KCB Handler 
used to insert a process 
or a message on a specified 
resource queue by priority. 
Queues used by tnis process 
are the message semaphore and 
the print queues. 


Destroy- 

RCB 


Resource I-Name, 
Process I-Name, 
Process Vector, 
Error Parameter 


This entry point to RCB Rand- 
ier is used to destroy an KCB. 
All processes on the KCB queue 
are identified and returned to 



the calling process so that an 
error message nay be sent to 
tne Error Handler for each 
process in the list. 



101 



ft 



RCBGETQ Resource I-Name, 
Left/Right Queue, 
Process I-Name, 

Q Bata Parameter, 
Message Pointer, 
Q_Da'ta Parameter, 
Found Boolean, 
Q_Status Boolean, . 
Error Parameter 



This entry point to RCB Hand- 
ler is used to remove a pro- 
cess from the specified queue 
for the indicated resource. 

The data stored in the gueue 
are returned if the process is 
found and the gueue status is 
also provided. 



EXTERNAL CALLS MADE BY OTHER MODULES 
NAMJ 3 PURPOSE 

Not applicable for processes. 



DATA STRUCTURES USED 

NAME __FJ ELD TYPE PURPOS E/V ALUES 



Message 

Buffer 



Based 

Releasor Integer 

Answer- Bit(1) 
Reguest 



Dynamically allocated, pointer 
qualified structure used for 
passing messages. 

Internal name of process 
releasing a message. 

Boolean indicating if answer 
required. 



Message- Integer 
Semaphore 



Semaphore to be used in the 
answer. 



Buffer- Pointer Not used. 
Location 



Fieldl-6 Integer 



Use undefined. 



Char- Char (8) Use undefined. 

Fieldl-4 



******* ** :ft:ft*:ft**£ddit ional Structures Undefined************** 



MODULE D ESCRIPTIOH 

Terminator design and implementation is incomplete. Note; 
termination of a process results in the termination of all 
dependent processes; deallocating resources; and printing 
output files . 
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MODU LE IMPLEMENTATION 



SSINCLUDE NAMCHGR; /♦**** TERMINATOR ******/ 

(CHICK (ERROR) ) : 

TEBMIHATCfi: PROC OPTIONS (MAIN) ; 



^INCLUDE GENEEC; 

5SINCLUDE PCBDCL; 

^INCLUDE BE'QBELD; 

^INCLUDE RBMSG; 

ON CHECK (EBBOE) 

EEGIN ; 

IF (ERROR -.= 0) THEN DO; 

(NCCh’ECK (ERROR) ) : BEGIN; 

FIELD 1 = BELEASOB; 

FI ELD 2 = ERROR; 

CALL PRIMITIVE RELEASE (ANY.P-ROC.,:$.ERROR, MESSAGE, 

ERROR) ; 

ERROB = 0; 

GO TO START; 

• END; 

END; 

END; 

DCL P I NAME FIXED BINARY; 

DCL ZRROE FIXED BINARY STATIC IKIT (0) ; 

DCL (INVALID, TEBM FLAG) BIT(1); 

START: 

DC FOREVER; 

/*** GET TERMINATION MESSAGE ***/ 

CALL PRIMITIVE REQUEST (ANYPROC, SEND JOB , MESSAGE , ERROR) 



/*** VERIFY THE MESSAGE ***/ 
CALL TEEMINAT 10 N_ VALIDATOR; 



/*** VALID: THEN START TERMINATING ***/ 

TERM FLAG = TRUE; 

DO - " WHILE (TERM FLAG) ; 

/*** SELECT THE PROCESS TO BE TERMINATED ***/ 
CALL TERM_S ELECT OR ; 

/*** LNSERT CODE TO DETERMINE OUTPUT FILES ***/ 
/*** RELEASE MESSAGE TO OUTPUT CONTROLLER ***/ 
CALL PRIMITIVE RELEASE (ANYPROC,$OUTPUT, MESSAGE, 

ERROR) ; 

/*** DESTROY THE PROCESS ***/ 

/* CALL PR IMITIVE_ DESTROY (PI NAME , PROCVEC , ERROR) ; */ 

/*** RELEASE ERROR MESSAGES FOR ANY PROCESS 
QUEUED ON A RESOURCE JUST DESTROYED ***/ 
V******* INSERT CODE ******/ 

/*** FREE THE JOB QUEUE SPACE ***/ 

CALL PRIMITIVE RELEASE (ANYPROC, $IHAHE, MESS AGE, 

ERROR) ; 

END; 

END; 

TERMINATION VALIDATOR: PROC: 

/* THIS - SUBROUT IKE VERIFIES THE JOB TERMINATION 
REQUEST; I.E., THE VALIDITY OF PROCESS 'A' TO 
DESTROY PROCESS 'B'. */ 

INVALIB= FALSE; 

END TERMINATION VALIDATOR; 

TERM StLECTCR: T'ROC; 

/* THIS SUBROUTINE DETERMINES WHICH PROCESS OR 

MEMBER OF A PROCESS'S FAMILY IS TO EE DESTROYED 
FIRST. V 

TERM FLAG=FALSE; 

END TEN'S SELECTOR; 

END TERMINaTCR ; 
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MODULE SPECIFICATION 



NAME: FILE_MANAGER TYPE: PROCESS 

PARAMETERS 

INPU T OUTPUT TYPE CONTENTS 

Not Applicable: All communications handled via messages. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PARA METE RS PUR POS E 



Request Process I-Name, 
Semaphore, 
Message Pointer, 
Error Parameter 



a) $Fileop - SemaDhore used to 
identify messages for this 
process. 



Release Process I-Name, 
Semaphore, 
Message Pointer, 
Error Parameter 



Find Process X-Name, 

Piname Process I-Name, 

Error Parameter 



Device Resource X-Name, 
Directory Access Identifier, 
Process X-Name, 
Page Table Length, 
Page Table Vector, 
Priority . 

Interrupt Number, 
Located- Boolean 



a) SError - Semaphore used to 
send messages to the Error 
Handler. 

b) $Intdev Semaphore used to 
send message to an inter- 
face process to identify a 
device internal name. 

c) SRfilew - Semaphore used to 
release messages to an in- 
terface process to perform 
a read or write operation. 

d) $Opr 10 - Semaphore used to 
sendee message to Operator 
System Communicator when 
replying to a message from 
Op-Sys-Comm. 

e) $ Space - Semaphore used to 
send messages to the File 
Space Manager when a file 
is destroyed or when a de- 
vice is added or deleted. 

f) $Wait - Semaphore used to 
send a message to a process 
which sent an open-file 
message. 

g) SXXXXX - Semaphore used 
when specified in answer to 
a message received. 

Entry point to PCB Handler- 
used to obtain the internal 
name of a process identified 
by external name. 

This module is invoked tc get 
data which identifies a device 
interface process and which is 
required to create a PCB and 
an RCB for the interface pro- 
cess and device, respectively. 



PCBData Process I-Name, Generic entry point to PCB 

Put/Get Identifier, Structures module to enter or 
Field Identifier, obtain data. 

Data Parameter, 

Error Parameter 
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PCEData 


Process I-Name, 
Put/Get Identifier, 
Field Identifier, 
Vector Lower Limit, 
Vector Upper Limit, 
Vector Parameter, 
Error Parameter 


RCBData 


Resource I-Name, 
Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 


RCBPUTQ 


Resource I-Name, 
Left/Right Queue, 
Process I-Name, 
Data Parameter, 
Priority, 

Message pointer. 
Data Parameter, 
Error Parameter 


Find 

I-Name 


Resource Type, 
Resourse X-Name, 
Resource I-Name, 
Error Parameter 


Interrupt 

Enaoler 


Interrupt Number, 
Interrupt Save- 
Vector 


Interrupt 

Disabler 


Interrupt Number, 
interrupt Save- 
Vector 


Create 

RCB 


Resource Type, 
Resource X-Name, 
Resource Owner, 
Sz-Cntr Parameter, 
Access Identifier, 
PCI Name, 

Dev/ Int Identifier, 
File Descriptor, 
File Descriptor, 
Resource I-Name, 
Error Parameter 


GETPCB 


Parent I-Name, 
Egt-Sib I-Name, 
Process X-Name, 
Priority , 

System Process ID, 
Init State Vector, 
Process .I-Name, 
Cyclic Process Id, 
Error Parameter 


Destroy- 

RCB 


ResouLce I-Name, 
Process J.-Name, 
Process Vector, 
Error Parameter 



Generic entry point to PCB 
Structures module to enter or 
obtain data or portions of the 
data stored as a vector (i.e.. 
Resource Access Vector, Page 
Table Vector, etc.). 



Generic entry point to RCB 
Handler module to enter cr get 
data concerning a resource. 



Entry point to RCB Handler 
used to insert a process 
or a message cn a specified 
resource queue by priority. 
Queues used by this process 
are the message semaphore and 
the Ready Active queues. 



Entry point to RCB Handler 
used to get the internal name 
for the resource specified by 
type (file, device, etc.) ana 
external name. 

This module is invoked tc en- 
able a specific interrupt or 
enable all interrupts disabled 
by this process. 

This module is invoked to dis- 
able a specific or 
ail interrupts and saving the 
status of tne interrupts in 
a save-vector for enanling. 

Entry point to RCB Handler 
used to create an RCB of the 
type specified; enter descrip- 
tor data in the appropriate 
RCB fields; and return the 
resource internal name. Mot 
all fields are used by each 
type of resource. 



Entry point tc PCB Structures 
used to create a PCB for a 
rocess; enter data in the PCB 
ields; and return the process 
internal name. 
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RCBGETQ 



Resource I-Naae, 
Left/Right Queue, 
Process I-Name, 

Q Data Parameter, 
Message Pointer, 
Q_Data Parameter, 
Found Boolean, 
Q_Status Boolean, 
Error Parameter 



This entry point to RCB Hand- 
ler is used to remove a pro- 
cess from the specified gueue 
for the indicated resource. 

The data stored in the gueue 
are returned if the process is 
found and the gueue status is 
also provided. 



RCB- Resource I-Name, 

Transfer- Left/Right Queue, 
Queue Process I-Name, 

From Q Status, 

To Q_S^atus, 
Xfered Boolean, 
Error Parameter 



This entry point to RCB Hand- 
ler is used to transfer a pro 
cess from the gueue specified 
to the opposite gueue. The 
status or the To-Queue before 
transfer and Frora-Queue after 
transfer are returned. 



RCB-Find Resource I-Name, 
Left/Right Queue, 
Find Operation, 
Queue position. 
Process I-Nama, 
Data Parameter, 
Data Parameter, 
Error Parameter 



This entry point to RCE Hand- 
ler is used to determine gueue 
position of a process and put 
or get a copy of data. The' 
process, position, or both may 
ne specified tc select a spe- 
cific process, any process at 
the specified position or a 
specific process at a speci- 
fied position. 



EXTERNAL CALLS MADE BY OTHER MODULES 
NAME PURPOSE 



Not applicable for processes. 



DATA STRUCTURES USED 



NAME 


FIELD 


TYPE 


Message 

Buffer 


— 


Based 




Releasor 


Integer 




Answer- 

Reguest 


Bit (1) 




Message- 

Semaphore 


Integer 




Buff er- 
Locarion 


Pointer 




Fieldl 


Integer 



PMR^QSE^VALUES 

Dynamically allocated, pointer 
gualified structure used for 
passing messages. 

Internal name of process 
releasing a message. 

Boolean indicating if answer 
required. 

Semaphore to be used in the 
answer. 

Qualified I/O buffer contain- 
ing data read from a file cr 
to be written into a file. 



a) 



b) 

c) 

a) 



e) 

f) 



Message from 
System Communica- 



$$OPCOM - 
Operator 
tor . 

$.$1 NTPC 
ter face 



- Message 
process. 

- Message 



from in- 
to cpen 

- Message 
or write 

to close 

to de- 



SSOPENF 
a file. 

SPREAD or $$ WRITE 
to do a file read 
operation . 

$$CLOSF - Message 
a tile. 

SSDSTYP - Message 
stroy a file. 



106 



Field2 



Integer 



a) $$OPRTR - Operator message 
reply to a request for ac- 
cess to a restricted file. 

b) $$ADD or $*DELET - $$CPCOH 
message to add or delete a 
device and interface pro- 
cess . 

c) File internal name identi- 
fying a file to be closed, 
accessed on a read or write 
operation, or destroyed. 

d) ##READ or ## WRITE - Dcnti- 
fies type access reguested 
in a file open message. 

e) $$EOF - End of file read. 

f) Directory entry number. 



Field3 


Integer 


a) Record number to be read 
from or written into. 

b) File length for files in 
the directory for the PCT. 


Field4 


Integer 


Device internal name identi- 
fied in $$INTPC message. 


Fi eld5 


Integer 


a) $$TEMPF or $$PER!-iF - Iden- 
tiried in $SINTPC messages 


Field6 


Integer 


a) #*SHRD or # #PRI V - Identi- 
fied in $$INTPC messages. 


Char- 

Fieldl 


Char (8) 


File or device external name. 


Char- 

Field2 


Char ( 8) 


Pack, tape, cell, etc. (ECT) 
external name. 


Char- 

Field3-4 


Char (8) 


Not used. 



MODULE DESCRIPTION 

File Manager has been implemented to perform the standard 
file operatic ns of opening, closing, destroying, reading 
from and writing into files. Creating files is performed by 
an independent module to prevent file creation when space is 
not available from interfering with the other file opera- 
tions. In addition, this process controls the allocation of 
files and prevents deadlocks using preemptive techniques; 
i.e., once a process has been assigned access to a file if 
subsequent open requests cannot be satisfied immediately and 
a potential deadlock exists, the process's files are sacri- 
ficed (can be allocated to other processes) until such time 
as all files required can be allocated concurrently. Inter- 
face processes and device RCB's are also created and 
destroyed by this process. 
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HOP PLE I MPLEMENTATION 



^INCLUDE NAMCHGR; /**#** file MANAGER *****/ 

(CHECK (ERROR) ) : 

FILE_HANAGER : PROC OPTIONS (MAIN) ; 

^INCLUDE SIMULTR; 

SIM_STAET (EROCESS_FILE_HANAGER) 

^INCLUDE GENIEC; 

^INCLUDE 5EQRELD; 

54INCLUDE CASESIM; 

^INCLUDE RCBDCL; 

S5INCLUDE PCBECL; 

PCL ERECR FIXED BINARY INITIAL (0); 

ECL I FUEL BINARY; 

ECL RCBI^R FIXED BINARY; 

ECL PC T NAME CHAR (8) ; 

ECL NULP POINTER; 

OS CHECK (ERROR) 

BEGIN; 

IF (ERROR -.= 0V THEN DO; 

FIE1D1 = RELEASOR; 

FIELE2 = ERROR; 

IF (ERROR = 11B) THEN DO; 

ANSWER REQUEST = TRUE; 

KSG SEMAPHORE = $FILEOP; 

END; 

ELSE DO; 

ANSWER REQUEST = FALSE; 

MSG SEMAPHORE =0; 

EnD ; 

(NOCHECK (ERROR)); 

BEGIN; 

ERROR = 0; 

CALL PRIMITIVE RELEASE (ANYPROC, SERROR , MESSAGE, 

ERROR) ; 

END; 

IF (ERROR -.= 118) THEN GO TO START; 



^INCLUDE RRMSG; 

START: 

DC FOREVER: 

CALL PRxMITI VE_REQUEST (ANYPROC, SFILEOP, MESSAGE, ERROR) ; 
SIM_IHTERRUPT_PT 

CALL MESSAGE_IHTERPRETER (I) ; 
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D0_ ACTICN_OF CASE (I); 

CASE ( 1) : 

/* MESSAGE PROM OPERATOR SYSTEM COMMUNICATOR */ 
CALL OP COMM MSG HANDLER; 

ENICASE; - - - 

CASE (2) : 

/* MESSAGE FROM DEVICE INTERFACE PROCESS 
PERFORM SUCH ACTIONS AS UP DATING THE 
MASTER FILE LIST, FILE DIRECTORY ON THE 
DRUM, -PACK, TAPE, ETC., RELEASING MESSAGE 
TO STORAGE MEMORY MANAGER. */ 

IF (FIELD2 -•= SSEOF) THEN DO; 

/*** ip EXISTING FILE IS TEMPORAY THEN DELETE IT 
IT FROM THE DIRECTORY ELSE CREATE AN RCB */ 
IF (FIELDS - 1 = SSTEMPFJ THEN DO; 

CALL PRIMITIVE RC BDATA ( FI ELD4 , # GET , tfPCT N AM , 

PCTNAME, ERROR) ; 

CALL CREATE RCB (#FILE , CHAR FIELD 1 , MY NAM E , 
FIELD37FIELD6,PCTNAME7FIELD4,f# avail, 
##PERMF, RC BN R, ERROR) ; 

END; 

ELSE DO; 

ANSWER REQUEST = FALSE; 

FIELD 1 — = S $DI RDL : 

CALL PRIMITIVE RELE ASE (RELE ASCR, $RF I LEW , 

MESSAGE, ERROR) ; 

END; 

/*** GET THE NEXT DIRECTORY ENTRY ***/ 

FIELD 1 = 3SDIRRD; FIELD2 = FIEID2 + 1; 

ANSWER REQUEST = TRUE; 

CALL PRIMITIVE RELEASE (RELEASOR , SBFILEW , 

MESSAGE, ERROR) ; 

END; 



/*** EOF: CREATE AN RCB FOR THE PCT AND RELEASE 
A MESSAGE TO THE FILS SPACE MANAGER ***/ 



ELSE DO, 
FIELD 
CALL 

CALL 

CALL 



CALL 

FIELD 

CALL 

END 
FIELD 1 , F 
CHAR FIE 

- T 



1 = $$OPCOM; FI ELD 2 = $$DONE; 

PRIMITIVE RCEDATA (FIELD4 , #GET, #XNA ME, 

CHAR FIELC1 , ERROR) ; 

PRIMITIVE RCBDATA (FIELT54 , #G£T, SPCTNAM , 

CHAR FIELD2, ERROR) ; 

CREATE RCB ( if PCT, CHAR FTELD2, MYN AM E , FI ELD3 , 
FI ELD 6 , (•“•) ,FIE1 d4, (0) , FI ELD5 , 
RCBN R, ERROR) : 

PRIMITIVE RELEASE (A NY PROC , $OPR 10, MESSAGE, 

ERROR) ; - 

1 = JSADD ; FIELD2 = RCBNR ; 

PRIMITIVE RELEASE (AN YPROC , $SPACE, MESS AGE, 

ERROR) ; 

iELD2,FIELD3,FIELD4,FIELD5, FIELD6 = 0; 

LD1 ,CHAR_FIELD2, CHAR_FI EL E 3 , CH AR_FIEL £4 

I • 



» 



CASE (3) • 

/* MESSAGE FROM A PROCESS TO DO A FILE OPEN, 

CLOSE, DESTROY, READ, WRITE, ETC. ' */ 

CALI FILE OPERATION CONTROLLER; 

ENECASE; 



END OF CASES; 
END; “ “ 



SIM END 
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MESSAGE INTERPRETER: PROC(I) ; 

/* DETERMINE WHICH PROCESS DID A RELEASE ON SFILEOP 

AND SET THE CASE STATEMENT INDEX */ 

DC! I FIXED BINARY: 

IF (MESSAGE -> FIELD 1 = $$OPCOM) THEN 1=1: 

ELSE IF f MESS AGE -> FIELD 1 = $$INTPC) THEN 1 = 2; 
ELSE I = 3; 

RETURN; 

END MESSAGE_INTERPRETER ; 

OP COMM MSG HANDLER: PROC: 

“/* T^IS "SUBROUTINE PERFORMS SUCH FUNCTIONS AS CREATING 
OR DESTROYING A DEVICE RCB AND AN INTERFACE PROCESS, 
UP DATING THE PACK, TAPE, ETC MOUNTED ON THE DEVICE, 
AN'S DETERMINING ACTION TO BE TAKEN ON A REPLY TO A 
USER'S REQUEST FOR FILE OWNERSHIP ON A SHARED FILE*/ 
DCL (RXNAME, PXNAME) CHAR (8) ; 

DCL (S OR P, NRPGS,PRI, PINAME, RINAME, CHILD, INTR NR , INDX) 
FIXES BINARY; 

DCL VAIX BIT ( 1) ; 

DCL PGTABVEC (1) FIXED BINARY; 

DCL STATE VEC{10) FIXED BIN A RY (3 1 , 0) ; 

DCL RESVFC (SEW L LIMIT : PCT U LIMIT) BIT (2) ; 

DCL CUM (16) BI^H); 

DCL TEMP PTR POINTER; 

DCL II FIXED BINARY INIT(1); 

/* DETERMINE ACTION TO BE PERFORMED AND SET INDEX */ 
IF (FIEID2 = $$OPRTR) THEN INDX =1; 

ELSE IF (FIELD2 = iiSADD) THEN INDX = 2; 

ELSE IF (FIELD2 = SSDELET ) THEN INDX = 3; 

ELSE ERROR = 309; 

DO ACTION OF CASE (INDX); 

CASE ( 1 7 : /* MESSAGE FROM OPERATOR */ 

/* ADD CODE */ 

ENDCASE; 

CASE (2): /* ADD A DEVICE, INTERFACE PROCESS AND 

PCT IF APPLICABLE */ 

RXNAME = CHAR_FIELD1 ; 

/*** GET DATA REQUIRED TO CREATE THE INTERFACE 
PROCESS AND DEVICE RCB FROM THE DEVICE 
DIRECTORY. ***/ 

CALL DEVICE DIRECTORY (RXNAME, S OR P, FOAMS, 

N RPG S , PGTABVEC ,PRI,INTRNR,VALX) ; 
IF iVALX = FALSE) THEN DO; 

FIELD2 = SSFAIL; 

CHAR FIELD2 = 'BAD NAME 1 ; 

CALL - PRIMITIVE RELEASE (ANYPROC, $OPR IC, 

MESSAGE, EEROS) ; 

END ; 

ELSE DO; 

/*** CREATE INTERFACE PROCESS ANE SET FAMILY 

LINKAGE. ***/ 

CALL PRIMITIVE PCBDATA (MYNAME,® GET , 2CHILD 

.CHILD, ERROR) ; 

STATE V EC ( 1 ) = PGTABVEC (1); 

STATE - VEC (2) = 1; 

CALL ZJETPCB (MY NAME, CHI LD, EXNAME , PFI /TRUE, 
STATE VEC, PINAME, (0) , ERROR) ; 
IF (CHILD -.= 0) THEN 

CALL PRIMITIVE PCBDATA (CHILD , &PU1 . 

“ a) L F T S I B , P 1 N A M 2 , £ R H 0 fi ) ; 
CALL PRIMITIVE PCBDATA ( M Y N A M E , c) P U T , 

dJCHJLD, PINAME, ERROR) ; 
CALL CREATE RCD(#DEVTCE. RXNAME, PINAME, (0) 
,S OR p , C H A R FIELD2 ,INTKNR, (0) , (0) , 
HI H A ME, ERROR J ; 
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/* SETUP 
RESVEC = 

RESVEC 
RES V EC 
RESVEC 
RESVEC 
RESVEC 
RESVEC 
RESVEC 
RESVEC 
RESVEC, 

call primitive 



RESOURCE 
= 1 0 0 ' B ; 

HI NAME) 
SFILEOP) 
SERROR) 
SRFILEW) 

$ WAIT) 



VECTOR FOR PI NAME */ 



= ## ACCESS 
= # #ACCES ; 
= ## ACCES ; 

= ##ACCES; 
= ## ACCES 



SINTDEV) = ##ACCfes; 

SINTRPT) = ##ACCES; 

SOBUFF) = ACCES ; 

SIBUFFj = **ACCES; 

£i.i IMITIVE PCBDATA (PINAME.3PUT - 
cDRESVEC,SEM L LIMIT, PCT U LIMIT, 
RESVEC, ERROl)T 

"" PCBDATA (PINAME, a)PUT, 



CALL PRIMITIVE 



SBRHVEC, IT, NRPGS,PGTAEVSC,EEr6b) 















/* RELEASE MESSAGE TO OPERATOR SYSTEM COMM. */ 
FIELD 1 = $$OPCOM ; 

FIELD2 = $$DONE; 

CALL PRIMITIVE RELE AS E (ANYPRCC , $ CPR IC 

, MESSAGE, EBRO'S) ; 

END; 

ELSE DO; 

/*** SEND MESSAGE TO INTERFACE PROCESS TO READ 

THE FIRST DIRECTORY ENTRY. ***/ 

FIELD 1 = SSDIRRD; 

FIELD2 =1; 

ANSWER REQUEST = TRUE; 

call primitive release (piname,$rfilew, 

MESSAGE, ERROR) ; 

END; 

END; 

E N DC ASE * 

CASE (3) : /* DELETE A DEVICE AND DESTROY THE 

INTERFACE PROCESS */ 

CALL FIND I NAME (#DEVICE,CHAR FIELD 1 , RI NAME , 

ERROR) ; 

CALL PRIMITIVE RCEDATA (RINA ME,# GET, &DINAME, 

INTRNR, ERROR). ; 

CALL PRIMITIVE INTERRUPT DISENABLES (INTRNR , 

DUK) ; 

/* DETERMINE FILES ASSOCIATED WITH THE 
DEVICE AND THE PCI; DESTROY RCE'S */ 

ENDCASE: 

END_OF CASES; 

END OP COnM MSG HANDLER; 



IDENTIFYING 



GET MESSAGE BUFFER FOR THE PROCESS *** 
ALLOCATE MESSAGE BUFFER SET (TEMP PTH) ; 
CALL PRIMITIVE PCBDATA (PINAME, 3 ) PUT, 

“a)MSGPTA,TEMP_PTR, EF.RCR) ; 

RELEASE MESSAGE TO THE PROCESS 
THE DEVICE INTERNAL NAME. 

FIELD 1 = RINAME; 

CALL PRIMITIVE RELEASE (PINAME , $1 NTD EV , 

MESSAGE, ERROR) ; 

ENABLE THE DEVICE INTERRUPT ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (INTRNR , 

DUM) ; 

NULP = NULL; 

ENTER THE PROCESS ON THE READY ‘A* QUEUE */ 
CALL RCBPUTQ (#REDYA,#OS, PINAME, (0) ,ERI, 
NULP, (6) , ERRCR) ; 

TF f C H A R FTEI.D2 = 'NO MOUNT ' ) THEN EC: 
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FILE OPERATION CONTROLLER : PROC; 

DEL (DATA / Duai1Y / POSIT / FSIZE / INAME) FIXED BINARY; 

DCL ( FINAME, PINAME, READ WRITE. j) FIXED EINARY; 

DCL 110 OP FIXED BINARY INITIAL (0) ; 

DCL FX'SAME CHAR (8) ; 

/*** DETERMINE ACTION AND SET INDEX ***/ 

IF (MESSAGE -> FIELD 1 = SSOPEKF) THEN 0=1; 

ELSE IF ((MESSAGE -> FIELD 1 = S$RE AD> | 

(MESSAGE -> FIELD 1 = SSWRITE)) THEN J = 2: 
ELSE IF (MESSAGE -> FIELD 1 = SSCLOSF) THEN 0=3; 
ELSE IF (MES5AGE->FIELD1=$$DSTYF) THEN J=4; 
ELSE ERROR =110; 



DO_ACTICN_OF CASE(J); 

CASE (1) ; /* OPEN FILE: SHOULD INCLUDE SUCH TESTS 

AS; LEGAL FILE , ACCESS. DEVICE STATUS, 
READ OR WRITE OPERATION, IF WRITE AND 
FILE OPEN CAN * T BE SATISFIED AT THIS 
TIME THEN CHECK FOR POTENTIAL DEADLOCK*/ 



/*** GET FILE INTERNAL NAME ***/ 

FXNAME = MESSAGE -> CHAR FIELD 1 ; 

CALL FIND INAME (#FILE , F XlAME , FINAME, ERROR) ; 
CALL FILE - ALLOCATOR (FINAME, ##OPEN, RELEASOR, 

FIELD 2) ; 



ENDCASE 



CASE (2) 



ENDCASE 



/* EEAD/WRITE OPERATION: CHECK FILE 
EXISTANCE, ACCESS, AND RELEASE MESSAGE 
TO THE APPROPRIATE DEVICE INTERFACE 
PROCESS V 

FINAME = FIELD2 ; 

./* CHECK IF MESSAGE RELEASOR DID AN 

OPEN ON THIS FILE. -*/ 

CALL RCB FIND (FINAME, tf LEFT, #FNDOP 1 .POSIT, 
RELEASOR, DATA, DUMMY, eRRCR) ; 

IF (POSIT = 0) THEN ERROR = 106; 

/* VERIFY IF OPERATION ( RSAD/WRITE) 

REQUESTED IS LEGAL. */ 

IF ( (FIELD 1 = ## WRITE) S (DATA = # # F. E A D ) ) 
THEN ERROR = 116; 

/* GET DEVICE INTERNAL NAME AND THEN 
THE INTERFACE PROCESS'S INTERNAL 
NAME. */ 

CALL PRIMITIVE RCBDATA (FI NAME , #GET , #DIH AME, 

DATA, ERROR) ; 

CALL PRIMITIVE RCBDATA (DATA , #GET, #CWNER , 

DATA ERROR) - 

/* RELEASE A MESSAGE TO T&E INTERFACE 
PROCESS TO PERFORM THE OPERATION. */ 
FIELD4 = RELEASOR; 

CALL PRIMITIVE EELE AS E (DAT A , SRFILE K , 

MESSAGE, ERROR) ; 



CASE (3): /* CLOSE FILE: VERIFY FILE EXISTANCE, 

REMOVE PROCESS INAME FROM FILE RCB. 

CHECK FOR OUTSTANDING OPENS, I? ANY 
SELECT ONE OK MORE AND RELEASE A MESSAGE 
TO THOSE PROCESSES, IF NONE CLOSE THE 
FILE. V 



E NEC ASF. 



FINAME = MESSAGE -> FIELD2; 

PINAME = MESSAGE -> RELEASOR; 

CALL FILE ALLOCATOR (FINAME, # ((CLOSE , FI NAME, 

NO OP) ; 



112 



CASE (4):; /* DESTROY RILE: PERFORM TESTS ON LEGAL 

FILE, ACCESS, AUTHORIZED TO DESTROY, 

IF ANY PROCESSES ARE USING OR WAITING TO 
USE THE FILE, RELEASE A MESSAGE TO THE 
SUPERVISOR FOR EACH PROCESS, DESTROY 
FILE RCB, UP DATE MASTER FILE LIST, UP- 
DATE FILE DIRECTORY, AND SEND MESSAGE TO 
STORAGE MEMORY MANAGER. */ 

DCL PRO V EC (0 : PCB DIM) EIT(1) 

INITIAL *T(PCB LIM +1) (1) 'O'B); 

FINAME = FIELD2; 

/*** GET SIZE OF THE FILE AND PCT NAME ***/ 

CALL PRIMITIVE RCBDATA (FI NAME , #GST , SC NT SZ, 

FSIZE/ERROR) : 

CALL PRIMITIVE RCBDATA (FI NAME, #GET, #PCTNAM, 

FXNAME, ERROR); 

CALL FIND INAME(#PCT, FXNAME, I&AHE , EBRCR) ; 
CALL DESTROY RCE (FINAME, RELEASOR, PRO VEC, 

ERROR) ; 

/* RELEASE MESSAGE TO 
EACH PROCESS THAT 



THIS FILE. 

IF (PRO VEC (0)) THEN- 

DO I~= 1 TO PCB LIM; 

IF (PRO VEC (I) ) THEN 
FIELT53 = I: 

ERROR = 118; 



SUPERVISOR FOE 
WAS QUEUED UP CN 



V 



/* 



END 

GET SPACE 
CALL 



DO; 



END; 



[ */ 
L_SZ, 



AVAILABLE IN PCT AND UPDATE IT 
PRIMITIVE RCBDATA (I N A ME , tfGET , #CNI 

DATA, ERROR) ; 

DATA = DATA + FS IZE* 

CALL PRIMITIVE ' RCBDATA (I NAME ,#PUT , #CNT SZ, 

DAT A, ERROR) : 



/* RELEASE MESSAGE TO UPDATE DIRECTORY */ 

FIELD1 = $$D IRDL ; 

FIELD2 = FINAME; 

FIELD3 = F SIZE ; 

CALL PRIMITIVE RCBDATA (IN A ME , #GET , #DI NAME , 

FINAME, ERROR) ; 

CALL PRIMITIVE RCBDATA (FINAME, GET, SOWN ER, 

FINAME, ERROR) ; 

CALL PRIMITIVE RELEASE (FINAME, SRFILEW , 

MESSAGE, ERROR) ; 



/* INFORM SPACE MANAGER OF THE CHANGE IN 
SPACE AVAILABLE FOR FILES. */ 

FIELD1 = SSADD ; 

FIELD2 = INANE; 

FIELD3 = FSIZE; 

CALL PRIMITIVE RELEASE (AHYPROC,$SPACE 

MESSAGE, ERROR) 



ENDCASE; 



/ 

* 



END OF CASES; RETURN; 

END Fll E_CPERATI ON_C ON T ROLLER ; 
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FILE ALLOCATOR: PROC (FIN AME , OPERATION, PINAME, TYPE) ; 

THIS SUBROUTINE DETERMINES IF A PROCESS CAN HAVE ACCESS 
TO A FILE , IF ACCESS IS DELAYED, DOSS A DEADLOCK EXIST 
OR CAN IT OCCUR; IF A FILE IS CLOSED, ARE THERE OUT- 
STANDING REQUESTS FOR THE FILE AND IF SO SATISFIES 
THEM: ETC. *******/ 

DCL ~ 



DCL 

DCL 

DCL 



(Operation, found, q empty. bdata) bit(1); 

DUHKY^PABM FIXED - BI NARY INITIAL (0); 



DCL 

DCL 

DCL 

DCL 



DUMMY PTE POINTER . 
(FIiJAM'E,PINAME,TYPE,FSTAT,PRI,TPRI / lSTAT, 

PRIVATE, DATA) 

TOPELEM FIXED 



FIXE& BINARY; 
BINARY INITIAL (1); 



FILE (1) BIT (2) 

IEIT2 EIT ( 2) ; 

CD AT A CHAR (8) ; 

DUMMY PTE = NULL; 

FOUND - - FALSE; 

CALL PRIMITIVE PCBDATA (PI NAM E , alGET , SR ES VEC, FIN AME , 

FI NAME, FILE, ERROR) ; 

CALL PRIMITIVE RCBDATA (FINAME, #GET ,i S OR P, PRIVATE, 

ERROR) : ~ ~ 

IF (OPERATION = ##OPEN) THEN DO; /* OPEN FILE */ 

/*** CHECK ACCESS AUTHORIZATION #**/ 

IF (FILE ( 1 ) -.= ##ACCES) THEN DO; ERROR = 109; RETURN; 

END; 

/*** CHECK IF THE FILE CAN BE OPENED ***/ 

CALL PRIMITIVE EC BOAT A (FI NAME ,# GET , #DSTAT , BDATA , 

ERROR) ; 

IF (BDATA = # #HOLD) THEN DO; ERROR=113; RETURN; END; 
CALL PRIMITIVE PCBDATA (PI NAME, a) GET , 3PRIRTY , PEI , 

ERROR) ; 

/*** ASSIGN THE FILE TO THE PROCESS ***/ 

FILE ( 1 ) = ##ACQRD; 

CALL PRIMITIVE PCBDATA (PI NAME, a! PUT, a) RES VEC, FINAME , 

FINAME, FILE, ERROR) ; 

IF ((TYPE = # # WRITE) & (PRIVATE = ##SHRD)) THEN DO; 
/*** WRITE ACCESS INTO SHARED FILE: CHECK 

OWNERSHIP ***/ 

CALL PRIMITIVE RCBDATA (FINAME, #GET, ffOWNER, DATA, 

ERROR) * 

IF (DATA -•= PINAME) THEN DO: ' 

/*** NOT OWNER; PUT ON QUEUE AND RELEASE ERROR 
MESSAGE TO THE OPERATOR ***/ 

CALL RCBPUTQ (FINAME, *HIGHT, PINAME, DUMMY PARM, 
PRI, DUMMY PTE, ##WRITH, ERROR) ; 

ERROR = 112; RETURN; END ; 

/*** AUTHORIZED ACCESS: UPDATE WRITE COUNTER **/ 
CALL PRIMITIVE PCBDATA (PIN AME, QPUI , &FWCNTB , D ATA, 

ERROR) ; 

END; 

CALL PRIMITIVE PC BDATA (PI NAME, 3GET , 3FSTAT , TSTAT , 

ERROR) ; 

IF (TSTAT = H # SACK) THEN DO; 

/*** PROCESS iN SACRIFICE STATE ***/ 

CALL DEADLOCK SETT SR (FI N AME, PI 11 A ME , PRI ,T YPE , TSTAT, 

PRIVATE) ; 

RETURN; END; 

IF ((TSTAT = # frREADR) & (TYPE = fc# WRITE) & 

(PRIVATE = ssSHRD)) THEN 

/*** UPDATE PROCESS'S FILE ACCESS STATUS ***/ 
CALL PRIMITIVE PCBD AT A ( PIN A M E , &PUT , 0FSTA T , # # WRITR , 

ERROR) ; 

/*** DETERMINE IF THE FILE IS AVAILABLE ***/ 
CALL PRIMITIVE RC LDA T A (FIN AME, #GET , #Or ILE , F STAT , 

ERROR) ; 

IF (F STAT = v # A V AIL) THEN DO; 

/*** FILE AVAILABLE; ASSIGN THE PROCESS, ENTER 
PROCESS IN THE QUEUE AND RELEASE A MESSAGE 

* * * / 
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CALL PRIMITIVE RCBD ATA (FIN A ME, # PUT , #OFILE ,T Y E E, 

ERROR) ; 

CALL RCBPUTQ (FIN AM E , #LEFT , PI NAME , DUMMY P ARM , ERI , 
DUMMY PTR, TYPE, ERROR) ; 

CALL PRIMITIVE KCBDATA (PI NAME , #G ET , #XNAME , CD AT A , 

ERROR) : 

MESSAGE -> CHAR FI ELD 1 = CDATA; 

MESSAGE -> FIELI51 = FINAME; 

CALL PRIMITIVE RELEASE (PIN AM E, MS G SEMAPHORE, 

~ MESSAGE, ERROR) ; 

END; 

ELSE DO: 

/*** FILS ALL READY OPENED ***/ 

IE ((TYPE = #ff«RITE) | (TYPE -= FSTAT) ) THEN DO; 
/*** ACCESS NOT AVAILABLE AT THIS TIME ***/ 

CALL DEADLOCK SETTER (FI N A ME , PI N A ME , PRI , T Y PE , 

TSTAT, PRIVATE) ; 

RETURN; ' END; 

/*** ACCESS MAY BE AVAILABLE; CHECK OUTSTANDING 
OPEN QUEUE AND PERMIT THIS OPEN IF QUEUE 
IS EMPTY OR THE PRIORITY OF THIS PROCESS 
IS GREATER THAN THE PRIORITY OF THE PROCESS 
ON TOP OF THE QUEUE ***/ 

CALL RCB_FIND (FINAME, I RIGHT, #FNDOP5 , IOPELEM, 

DUMMY PARM, DUMMY PARM,TPRI , ERRCR) ; 

IF (PRI < TPRI) THEfl 

CALL RCBPUTQ (FINAME, BRIGHT, PINAME, DUMMY PARM, 
PRI, DUMMY PTR, TYPE, ERROR) ;~ 

ELSE DO; 

CALL RCBPUTQ (FINAME, #L£FT , P IN AKE , DUMMY PARM, 
PRI, DUMMY PTR,TYPE, ERROR) T 
CALL PRIMITIVE RCBDATAlPI NAME , #GET , #X NAME , 

CDATA, ERROR) ; 

MESSAGE -> CHAR EIELD1 = CDATA; 

MESSAGE -> FIELri - PINAME; 

CALL PRIMITIVE RELEASE (PINAME, MSG SEMAPHORE, 

MESSAGE, ERROR) ; 

END; 

END; 

RETURN ; 

END ; 

ELSE DO; /* OPERATION IS CLOSE FILE */ 

/*** REMOVE THE PROCESS FROM THE QUEUE AND 

DETERMINE IF ANY OUTSTANDING REQUESTS FOR 
OPEN CAN BE SATISFIED ***/ 

IF ( (FILE (1) =tf #ACCBS) | (FILE (1) = tr#NOACC) ) THEN RETURN; 
IF (FILE ( i) = # #ACQRD) THEN 

CALL KCBGETO (FINAME j #LEFT, PIN AME, DUMMY PARM, 

DUMMY PTR, DATA, FOUND, Q EMPTY , ERRCR) ; 

IF ((-.FOUND) I (FILE (7) = #4SACRF)) THEN 

CALL RCBGETQ (FINAME, #RIGHT, PINi'ME, DUMMY PARM. 

DUMMY PTR, DATA, FOUND, Q EMPxY , ERRCR) ; 

IF (((DATA = ## WRITE) — | (DATA = #v WRITE) | 

(EATA = # & K R I T A ) | DATA = #wWRITS)) S 
(PRIVATE = StfSHRD)) THEN DO; 

CALI PRIMITIVE PCBDAT A (PI NAME , dG ET , <2F WCNT R , D AT A , 

ERROR) ; 

IF (DATA = 0) THEN CALL PRIMITIVE PCBDATA (PIN AME, 

aJPUT^FSTAT, ifPSEAD, ERROR) ; 

TBIT2 = FILE ( 1 ) ; FII.E(I) = ##ACCES: 

CALL PRIMITIVE PCBDATA (PINAME, a)EU'T, SRESVEC, FI NAME, 

FINAME, FILE, ERROR) ; 

IF ((Q EMPTY = FALSE) | (-FOUND) | (T3IT2 = tftfSACRF)) 
IHJiH RETURN; 

CALL PRIMITIVE RCBDAT A ( El N A ME , 4 PUT , # OFILE , # # A V A 1 1 , 

ERROR) ; 

DUMMY PARM = 0; 

CALL RESOLVE DEADLOCK (FINAME, DUMMY PARM); 

END; 

RETURN; 

END FILE^ALLOCATOR; 
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RESOLVE DEADLOCK: PROC (RCBNR, EXEMPT PRO); 

*'?«*****^«^ **♦*?$** # * * # * * # # 

THIS SUBROUTINE TESTS IF ANY OUTSTANDING OPEN REQUESTS 
CAN EE SATISFIED, IF A SACRIFICE HAS OCCURRED AND THE 
FILE IS AVAILABLE-, CAN THE PROCESS* S SACRIFICED FILES 
EE RE-ASSIGNED, ETC. *********/ 

DCL (STARTING , RQ STAT, LQ STAT , XFERED) BIT(1); 

DCL (ELEF. ,RC3NR,T?INAM, DA? A ,PRI,FST AT, DUMMY PARM, 

POSIT, EXEMPT PRO) FIXED BINARY; 

DCL CDATA CHAR(8f: 

DCL FILES (FILE L LIMIT J. FILE U LIMIT) EIT (2) ; 

STARTING = TRUE? “ 

ELEM = 1: 

DO FOREVER; 

TOP: 

/*** GET THE TOP ELEMENT ON THE OUTSTANDING 

QUEUE ***/ 

CALL RCB FIND (RCBNR, #RIGHT, SFNDOP5, ELEM, PINAM, DATA, 
PRi, ERROR); 

ELEM = ELEM + 1 • 

IF (DATA = 0) Ti’lEN RETURN; /* R„QUE IS EMPTY */ 

IF ((DATA = ##HEAD) | ((DATA = ## WRITE) S STARTING)) 
THEN DO; /* OPEN REQUEST NOI SACRIFICED 

TRANSFER TO OPEN QUEUE AND 
RELEASE MESSAGE TO PROCESS */ 

STARTING = FALSE; 

CALL RCB TRANSFERQ (RCBNR, BRIGHT, PINAM,RQ STAT, 

LQ STAT, XFERED, ERROR) T 

CALL PRIMITIVE RCBD AT A (RCBNR , fl PUT , #OFILE , D AT A , 

ERROR) ; 

CALL PRIMITIVE RCB DAT A (RCBNR,# GET, #XNAME, CDATA, 

ERROR) ; 

MESSAGE -> CHAR FI ELD 1 = CDATA; 

MESSAGE -> FIELD 1 = ECBNR; 

CALL PRIMITIVE RELEASE (PINAH , $ K AIT , MESSAGE, EEROS) ; 
IF ( (DATA=##WRITE) | (SQ STAT=#tt CLOSE) ) THEN RETURN; 
END; 

ELSE DO; /* OPEN REQUEST SACRIFICED */ 

IF (-STARTING & (- ( (DAIA=##READA) | (£ATA=##READS) ) ) ) 
THEN RETURN; 

/* TEST S ACRI E ICED OPEN REQUESTS FOB 
READ OR WRITE IF NO TRANSFER WAS 
MADE ABOVE; ELSE ONLY TEST READS. */ 

IF ((DATA -.= ##WEITH) J (PINAM -= EXEMPT PRO) ) THEN 
DO ; 

CALL PRIMITIVE PCBDAT A (PIN AM , 3GET , 3RES VEC , 

FILE L LIMIT, FILE U LIMIT , FILES , ERROR) ; 

DO I = FILE - L~ LIMIT TO FILE U LIMIT: 

IF ( (FILES (T) =##SACRF) & 7I-=RCENR) ) THEN DO; 
/* I IS AN RCB INTERNAL NAME FOR WHICH 
PROCESS PINAM DID AN OPEN REQUEST */ 
CALL PRIMITIVE RCfiDATA (I, # GET , #OFIL E , F S TAT , 

ERROR) ; 

CALL RCB FIND (I, #RIGHT, #FMDOP1 , DUMMY PARM, 
PINAM, DATA, DUMMY PARM, ERROR) ; 

IF ( (FSTAT = ##WRITE) | (DATA = ##WRITS) | 
DATA = # # WRITA) | (DATA = IMftfKITH) 

THEN IF (STARTING) THEN GO TO TOP; 

ELSE RETURN; 
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END; 



END 



/* GOT HEBE - — TRANSFER THIS PROCESS'S 
OUTSTANDING OPEN REQUESTS AND RELEASE 
MESSAGES TO THE PROCESS WHEN REQUIRED 

V 

ECL IDATA FIXED BINARY; 

ESTAT = # # READS ; 

DO I = FILE L LIMIT TO FILE U LIMIT; 

IF (FILES^IF = ##SACRF) TEET? DO; 

CALL RC3 TRANSFERQ (I f #RIGHT, PINAM, RQ STAT, 

LQ STAT, XEER£D / ER'ROR) ; 

CALL RCB FIND (I , # LEFT!# FNDOP 1 , POSIT , PIN AM , 
DATA, PRI, ERROR) ; 

IF ((DATA = ##READA) | (DATA = ##READS) ) THEN 
IDATA = ##READ; ELSE DO; ICATA = ##WRITE; 

FS'TAT = tftTWRITR ; END; 

CALL PRIMITIVE RCEDATA (I, ffP UT , #OFILE , ID ATA , 

ERROR) ; 

CALL RCB FIND (I., #LEFT,#Fi;D0P'4, -POSIT, PINAM, 
IDATA, PRI, ERROR) ; 

IF ((DATA = # 4IREADA) | (DATA = ##WRITA) ) THEN 
DO; 

CALL PRIMITIVE RCB DATA (I,#GET,#XNAME, 

CDATA, ERROR) ; 

MESSAGE -> CHAR FIELD 1 = CDATA; 

MESSAGE -> FIELD 1 = I; 

CALL PRIMITIVE RELEAS E (PINAM ,$ WAIT , 

MESSAGE, ERROR) ; 

END; 

FILES (I) = ## ACQRD ; 

END; 

END; 

CALL PRIMITIVE PCBDAT A (PIN AM , 3P UT , SEES VEC , 

FILE L LIMIT, FILE U LI MIT , FILES , ERRCR) ; 
CALL PRIMITIVE PCBDAT A (PlNLi-l ,a)PUl,d)FSTAT,FSTAT, 

ERROR) ; 

END; 

END ; 

END: 

END RESOLVE DEADLOCK; 
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DEADLOCK SETTER: PROC ( FIN AME, PIN AME, PRI , TYP E, STAT, 

Sh’AS PSIV) ; 

THIS SUBRCDTI N£ TRANSFERS ALL OF THE FILE OPEN REQUESTS 
FOR THE PROCESS (PINAME) TO THE OUTSTANDING QUEUE AND 
SETS THEIR STATUS TO *f#READH OR # if W R I T H ACCORDINGLY. 

IF A FILE BECOMES AVAILABLE , DEADLOCK RESOLVER IS 
INVOKED ***/ 

DCL SEAR PRIV FIXED BINARY: 

DCL (FINIKE, PINAME, PRI, TYPE. STAT) FIXED BINARY, 

CAS INDX FIXED BINARY (3) , 

(LQSTAT, RQSTAT, TRANS) BIT(I), 

(OP , POS,FSTAT,C?RI,DATA) FIXED BINARY, 

CHEKK (FILE L LIMIT: FllE U LIMIT) 3IT(1), 

DUMMY PARE EllED BINARY iNlT (0) , 

BUM KY — PTR POINTER ; 

DUMMY^PTE = NULL; 

/* DETERMINE NECESSARY ACTION V 

IF (SHAR PRIV = ##PRIV) THEN OP=1; ELSE OP = STAT: 

IF ((SHIR PRIV = # #SHRD ) & ( TYPE = # # WRITE) ) THEN DO; 

CALL PRIMITIVE PCBDATA (PINAM E, 5SGET , BEWCNTR , DAT A , 

ERROR) ; 

DATA = DATA +1; 

CALL PRIMITIVE PCBDATA (PIN AME , SPUT , 3FKCNTR , DAT A , 

ERROR) ; 

END; 

DO_ACTION_OF CASE (OP) ; 

CASE (1) : /* PROCESS HAS NOT OPENED A SHARED FILE ON 

A WRITE */ 

IF (TYPE =##EEAD) THEN CAS INDX = 1; 

ELSE CAS INDX = 2; 

ENDCASE; 

CASE (2) : /* PROCESS HAS OPENED A SHARED FILE ON A 

WRITE AND IS NOT CURRENTLY SACRIFICED */ 
CAS INDX = 2; 

ENDCASE; 

CASE (3): /* PROCESS IS CURRENTLY SACRIFICED */ 

CAS INDX = 3; 

ENDCASE; 

END_CF_CASES ; / 

DO_ACTION_OF CASE (CAS_1NDX) ; 

CASE (1 ) : /* READ ACCESS REQUESTED - NO SACRIFICE 

CONDITION */ 

CALL RCBPUTQ (FINAME, #RIGHT, PINAME, DUMMY EARN, 
PRI, DUMMY PTR, TYPE, ERROR) 

ENDCASE; 

CASE (2): /* SACRIFICE ALL OF THIS PROCESS 1 FILES */ 
BEGIN : 

DCL rILES (FILE L LIMIT: FILE U LIMIT) BIT (2) ; 
CALL PRIMITIVE PCBDATA (PIN A ME ,EGET ,c)R ES V EC , 

EILE L LIMIT, FILE U LIMIT , F1LES,ERL0R) ; 
DO I = FILE I LIMIT TO rllE U LIMIT; 

CHEKK (I) = EALSE; 

IF ((Fli.ES (I) = if #ACQRD) & (I i= PINAME)) 

THjsN DO; 

FILES (I) = # # SACRF ; 

CALL RCD TRANSFERQ (I, frLEFT, PINAME, LQSTAT, 
HQSIAT, TRANS, ERROR) ; 



/* RESET DATA IF THE OPEN QUE IS EMPTY 

AMD SET CHECK TO INDICATE THE FILE KAY 
BE REASSIGNED */ 

IF (LQSTAT = ##CLOSE1 THEN DO; 

CALL PRIMITIVE RCBDATA (FINAKE, i PUT , 
#OriLE,#?AVAIL,EBROR) ; 

DATA = 0 • 

CALL PRIMITIVE RCBDATA (FINAME, #PUT , 
*OWN£R,DlTA, ERROR ) ; 

CHEKK(I) = TRUE; 

END : 

CALL RCB FIND (I, #RIGHT, #FNDOPl , POS , PINAME, 
FSTAT, CPRI, ERROR): 

/* CHANGE THE PROCESS’ OPERATION STATUS 
ON THE QUEUE, IF NECESSARY */ 

IF { (FSTAT > 0) & (FSTAT <=2) ) THEN DO; 

DO_ACTION_OF CAS E.(.FSI AT) ; 

CASE ( 1 ) : /* CURRENTLY BEAD V 

IF (TRANS) THEN FSTAT =##READS; 

ELSE FSTAT =##READA ; 

ENDCASE; 



CASE (2): /* CURRENTLY WRITE */ 

IF (TRANS) THEN FSTAT = ##WRITS; 
ELSE FSTAT = ##WRITA; 

ENDCASE; 

END OF CASES; 

CALI RIB FIND (I,»RIGHT,#FNDOP2,POS, 

PINAME, FSTAT,CPHI, ERROR) ; 

END; 

END; /* END IF ACQUIRED */ 

END; /* END DO LOOP */ 



/* SET THE PROCESS' STATUS TO SACRIFICED */ 
CALL PRIMITIVE PCBDATA (PINAME, <aPUT,5iFSTAT, 

¥ # S AO R , ERROR) ; 

CALL PRIMITIVE PCBDATA (PI NA ME , SPUT, iARES VEC , 
FILE L LIrtIT , FILE U 1.1 MI T , FILES , ER ROE) ; 
/* NOW ENTER - T HE FILE TO IE OPENED IN 

SACRIFICE STATUS - ANSWER REQUIRED */ 

GO TO CASE (3) ; 

END; 

ENDCASE; 



CASE (3): /* ENTER THE FILE TO BE OPENED IN SACRIFICE 
STATUS, ANSWER REQUIRED */ 

IF (TYPE =#*READ) THEN FSTAT = ff # READA ; 

ELSE FSTAT = ##NRITA; 

CALL RCBPUTQ (FIHAME, BRIGHT, PINAME, DUMMY FARM, 
PHI, DUMMY PTR, FSTAT, ERROR)! 

DCL FILES (1) BIT (2) ; " 

FILE S ( 1 ) = ##SACRF; 

call Primitive pcbdata (piname, dPUT,SRESvEC, 

FINA M"E ,FINAME, FILES, ERROR) ; 

ENDCASE; 

END_OF_C ASES ; 

/* ASSIGN THE FILES THAT HAVE DECOKE AVAILABLE */ 

DO I = FILE L LIMIT TO FILE U LIMIT: 

IF CHEKK (I) “THEN CALL RESOLVE DEADLOCK (I, PIN AME) ; 

END: 

END D&ADLOCK_SETT£R; 

END FILE_KANAGER; 
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MODULE SPECIFICATION 



NAME: F ILE SPACE MA NAGE R TYPE: PROCESS 

PARAMETERS 

INPUT OUTPUT TYPE CONTENTS 

Not Applicable: All communications handled via messages. 



EXTERNAL CALLS MADE TO OTHER MODULES 



NAME 


PARAMETERS 


PURPOSE 


Reguest 


Process I-faame, 
Semaphore, 
Message Pointel, 
Error Parameter 


a) $Space - Semaphore used to 
identify messages for this 
process. 


Release 


Process I-Hame, 
Semaphore, 
Message Pointer, 
Error Parameter 


a) $Rfilew - Semaphore used to 
send messages to an inter- 
face process to up- 
date the directory. 

b) $XXXXXX - Semaphore used to 
send a message to the pro- 
cess requesting a file. 

c) $Error - Semaphore used to 
send messages to the Error 
Handler. 


PCBData 


Process I-Name, 
Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 


Generic entry point to PCB 
Structures module to enter or 
obtain data. 


PCBData 


Process I-Name, 
Put/Get identifier. 
Field Identifier, 
Vector Lower Limrt, 
Vector Upper Limit, 
Vector Parameter, 
Error Parameter 


Generic entry point to PCB 
Structures module to enter or 
obtain data or portions cf the 
data stored as a vector (i.e.. 
Resource Access Vector, Page 
Table Vector, etc.). 


RCBData 


Resource I-Na me, 
Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 


Generic entry point to RCB 
Handier module to enter cr get 
data concerning a resource. 


RCBPUTQ 


Resource I-Name, 
Left/Right Queue, 
Process I-Name, 
Data Parameter, 
Priority , 

Message Pointer, 
Data Parameter, 
Error Parameter 


Entry point to RCB Handler 
used to insert a process 
or a message on a specified 
resource queue by priority. 
Queues used by this process 
are the message semaphore and 
the PCT gueues. 


Find 

I-Name 


Resource Type, 
Resourso X-Naine, 
Resource I- Name, 
Error Parameter 


Entry point to RCB Handler 
used to get the internal name 
for the resource specified by 
type (file, device, etc.) ana 
external name. 
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Create 

RCB 



RCBGETQ 



Resource Type, 
Resource X-Name, 
Resource Owner. 
Sz-Cntr Parameter, 
Access Identifier, 
PCI Name, 

Dev/Int Identifier, 
rile Descriptor, 
File Descriptor, 
Resource I-Narae, 
Error Parameter 



Entry point to RCB Handler 
used to create an RCB cf the 
type specified; enter descrip- 
tor data in the appropriate 
RCB fields; and return the 
resource internal name. Not 
all fields are used by each 
type of resource. 



Resource 1-Name, 
Left/Right Queue, 
Process I-Name, 
Q_Data Parameter, 
Message Pointer, 
Q_Eata Parameter, 
round Boolean, 
Q_Status Boolean, 
Error Parameter 



This entry point to RCB Hand- 
ier is used to remove a pro- 
cess from the specified gueue 
for the indicated resource. 

The data stored in the gueue 
are retuxned if the process is 
found and the gueue status is 
also provided. 



RCB-Find Resource I-Name, 
Left/Right Queue, 
Find Operation, 
Queue Position, 
Process I-Name, 
Data Parameter, 
Data Parameter, 
Error Parameter 



This entry point to RCB Hand- 
ler is used to determine gueue 
position of a process and put 
or get a copy of data. The 
process, position, or both may 
be specified to select a spe- 
cific process, any process at 
the specified position or a 
speciric process at a speci- 
fied position. 



EXTERNAL CALLS MADE BY OTHER MODULES 
NAME P URP OSE 

Not applicable for processes. 



DATA STRUCTURES USED 


NAME 


FIELD 


TYPE 


Message 


_ 


Based 


Buffer 


Releasor 


Integer 




Answer- 

Reguest 


Bit (1) 




Message- 
S ecaphor e 


Integer 


• 


Buffer- 


Pointer 



location 



PURPOSE/ VALUES 

Dynamically allocated, pointer 
gualified structure used for 
passing messages. 

Internal name of process 
releasing a message. 

Boolean indicating if answer 
required . 

Semaphore to be used in the 
answer. 

Not used by this process'. 
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Fieldl 



Integer 



Field2 



a) 



b) 



c) 

d) 



Integer a) 



b) 



ADD or SiDELET - Messaae 
from File Manager indica- 
ting that a device has been 
added or deleted. 

$$SPAC£ - Message from File 
Manager indicating that a 
file has been destroyed. 
$$PERMF or 33TEMPF - Mes- 
sage to create a permanent 
or temporary file. 

$$EXTNT - Message for a 
file extention. 

PCT internal name - Identi- 
fies the PCI which was 
added or deleted, or cn 
which a file was destroyed. 
$$SHRD or 3SPRIV - Identi- 
fies the file access-type. 



Field3 


Integer 


File space 


Field4-6 


Integer 


Not used. 


Char- 

Fieldl 


Char (3) 


Identifies 


Char- 

Field2 


Char (8) 


Identifies 


Char- 

Field3-4 


Char (8) 


Not used. 



MODULE DESCRIPTION 



File Space Manager has been implemented to perform file 
creation as an independent system function. It fields re- 
guests for file creation, determines type, access, location, 
if specified, and availability of space. If a permanent file 
is requested on a specified PCT and space is not available 
an error condition is raised which terminates the process. 
For temporary files, a dummy file is created until space 
becomes available and then a message is released to the pro- 
cess reguesting the file. 
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MODULE IM PLEMEN TATION 



^INCLUDE NAMCHGR; /***** FILE SPACE MANAGER ****/ 
(CHICK (ERROR)): 

FILE_SPACI_ MANAGER: PROC OPTIONS (MAIN) ; 



55INCLUDE SIBULTR: 

SIM_ST ART (FROCESS_FILE_SPACE_MANAGER) 

^INCLUDE GENEEC: 

^INCLUDE PEQRELD; 

^INCLUDE ECBECL; 

^INCLUDE PCBECL; 

^INCLUDE CASESTM 



FIXED BINARY; 



DCL (INAHE. FDATA, I) 

DCL SPACE VEC ( PC X L LIMIT : PCT ULIMIT1 BIT(1). 

DCL CUI SPACE RE^ FIXED BINARY - ST ATIC INITIAL (0) ; 

DCL ESI AT BIT71) ; 

DCL ERROR FIXED BINARY INITIAL (0) ; 

ON CHECK (ERROR) 

BEGIN ; 

IF (ERROR -■= OV THEN DO; 

EIELD1 = RELEASOR; MSG SEMAPHORE = SSPACE; 
FIELD2 = ERROR; 

(NOCHECK (ERROR)') : BEGIN; ERROR = 0; 

CALL PRIMITIVE RELEASE ( AN YPROC , $E RROR , 
MESSAGE, EUROR) ; END; 

GO TO START; 

END ; 

END; 

SbINCLUDE RRMSG; 



START: 

DC FOREVER: 

jCALL PRIK-ITIVE_REQUEST (ANYPROC,$SPACE, MESSAGE, ERROR) ; 
SIM INTERRUPT PT 



CALL MESSAGE_INTERPRETER ; 

DO ACTION OF CASE (I) ; 

“CASE (If: /* SPACE MODIFICATION FROM FILE MANAGER 

A DEVICE HAS BEEN ADDED OR DELETED */ 
IF ( FIELD 1 = % SDELET) THEM 

SPACE VEC (FIELD2 j = FALSE; 

ELSE DO; "SPACE VEC(FIELD2) = TRUE; 

IF (OUT SPACE_REQ -* = 0) THEN 

CALL SPACE RESOLVER (FIELD2) ; 

END; 

ENDCASE; 

CASE (2): /* SPACE FREED BY FILE MANAGER; I.E., 

A FILE WAS DESTROYED. V 

IF (OUT SPACE REQ -.= 0) THEN 

"CALL SPACE RESOLVER (FIELD2) ; 

ENDCASE; 



123 



END 

SIM 



CASE (3): /* SPACE REQUESTED FOR PERMANENT FILE, 

DEVICE SPECIFIED BY EXTERNAL NAME. */ 

/* GET INTERNAL NAME, IF NOT FOUND ERROR 
CONDITION IS SET IN PRIMITIVE. */ 

CALL FIND INAM£(#PCT,CHAREI£LD2,INAME, 

— ERROfi) * 

/* CHECK DEVICE STATUS IF IN HOLD SET 

ERROR; I.E., NO FILE CAN BE CREATED */ 
CALL PRIMITIVE RCBDATA (IN AME ,#GET, #DSTAT , 

ESTAT, ERROR) : 

IF (BSTAT = ##HOLD) THEN ERROR = 113; 

/* STAT IS GO; CHECK IF PERMANENT FILES 
CAN BE CREATED ON THIS UNIT. */ 

CALL PRIMITIVE RCEDATA (INAME ,#GET, #OFIIE, 

FDATA. ERROR) : 

IF (FDATA = ##TEMPF) THEN ERROR = 114; 

/* NON CHECK SPACE AVAILABLE; IF SPACE 
NOT AVAILAELE SET ERROR CONDITION */ 
CALL PRIMITIVE RCBDATA (IN AME , #G'ET, #CNT SZ, 

FDATA , ERROR) ; " 

IF (FIELD3 > FDATA) THEN ERROR = 115; 

/* ALL TESTS COMPLETED SUCCESSFULLY; 

CREATE THE FILE , ENTER IN DIRECTORY, 
UPDATE SPACE, ETC. */ 

CALL FILE CREATOR (INAME) ; 
pn ITU ryj — F T F T n 3 • 

CALL PRIMITIVE RCBDAT A j[INA ME , #PUT , #CHT SZ, 

FDATA, ERROR) ; 



ENLCASE ; 

CASE (4) : /* CREATE A TEMPORARY FILE WHERE SPACE 

IS AVAILABLE; ELSE CREATE A DUMMY 
FILE UNTIL SPACE BECOMES AVAILABIE. */ 
DO J = PCT L LIMIT TO PCT U LIMIT - 1; 

IF (SPACE - VEC (J) ) THEN DC; 

CALL PRIMITIVE RCBDATA (J , #GET ,# CFTLE , 

F DAT a , nOR) ; 

IF (FDATA -.= ##PERMF) THEN DO; 

CALL PRIMITIVE RCEDATA (J , #GET , 

# C N T SZ,F15ATA, ERROR) ; 

IF (FIELD3 <= FDATA) THEN 

GO TO CEATEF; 



END; 



END; 



END; 

IF (J > PCT U LIMIT) THEN J = 0; 

/* create: j. dummy file */ 

CRATEF: CALL FILE CREATOR (J); 

FDATA = FDATA r FIELD3; 

IF (J -i=0) THEN CALL PRIMITIVE RCBDATA (J, 
»PUT, fcCNT SZ, FDATA, ERROR) ; 

ENECASE* ^ 

CASE (5) : * /* A FILE E-XTENTION REQUESTED; CHECK 

FOE SPACE AVAILABLE ON SAME UNIT: 

IF NOT AVAILABLE SET ERROR CONDITION 
ELSE ALLOCATE SPACE. UPDATE DIRECTORY, 
UPDATE FILE RC3 , ETC. */ 

/* TO BE IMPLEMENTED LATER */ 

ENDCASE; 

END OF CASES; 

; 7* IND DO FOREVER */ 



..END 
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MESSAGE INTERPRETER : PROC; 

IF (1FIZLD1 = ADD) | (FIELD1 = S$DELET) ) THEN 1=1; 
ELSE IF (FIELD 1 = 3SSPACE) THEN 1=2: 

ELSE IF (FIELD 1 = i$PERMF) THEN 1 = 3; 

ELSE IF (FIELD 1 = $$TEMPF) THEN I = 4; 

ELSE IF (FIELD 1 = S JEXTNT) THEN 1=5; 
ELSE ERROR = 110; 

RE1DBN; 

END MESSAGE INTERPRETER; 



FILE_CBEATCB: PROC (PCTINAM) 

/* THIS SUBROUTINE CREATES A FILE (REAL OR D U M II Y ) AND 
RELEASES MESSAGES TO THE PROCESS REQUESTING A FILE 
ANL TO UPDATE THE DIRECTORY , OR QUEUES REQUESTS 
UNTIL SPACE BECOMES AVAILABLE */ 

DCL (PCTINAH , RCB NR, FDATA , AV AIL , PI NAM E) FIXED BINARY; 

DCL CDATA CHaR (8) 

“““ 'll 



DCL DUMMY PTR POINTER; 
IF (PCTINlM -«= 0) THEN 
• "ATA 



jl ii u « DO; 

/* GET DATA FOR CREATING A FILE */ 

CALL PRIMITIVE RCBDATA (PCTINAM, #GET,#X NAME, CDATA, 

ERROR) ; 

C AIL PRIMITIVE RCBDATA (PCTINAM, fcGET , #DINAME , FDATA, 

ERROR) ; 

CALL PRIMITIVE RCBDATA (ED ATA , #GET, # CWNER, PI NAME , 

ERROR) ; 

AVAIL = ##A VAIL; 

END: 

/* SET VARIABLES FOR CREATING A DUMMY FILE*/ 
ELSE DO; CDATA = * •; FD ATA = 0; AVAIL = ##NOAVL: END; 

CALL CREATE RCB (*FILE , CHAR FIELD1 , RELEASOR . FIE1DJ , 

FI EL D2, CDATA, FDATA, A VAIL, FIELD 1 , RCB NR, 
ERROR) ; 

IF .(PCTINAH -= 0) THEN DO; 

/* FILE CREATED: RELEASE A MESSAGE TO THE INTERFACE 

PROCESS TO UPDATE THE DIRECTORY */ 

ANSWER REQUEST = FALSE; 

fields - = Field 1 ; 

FIELD6 = FIELD2; 

FIELD 1 = SSDIRAD; 

FIELD2 = 0; 

FIELD4 = FDATA; 

CALL PRIMITIVE RELEASE (PINAME, SBFILEH , 

MESSAGE, ERROR) ; 

/* RELEASE A MESSAGE 1C THE PROCESS 

REQUESTING A FILE. */ 

FIELD1 = FCBNR; 

CHAR FIELD2 = CDATA; 

CALL - PEI Mill V E RELEASE (RELEASOR , 

MSG SEMAPHORE, MESSAGE, ERROR) ; 

“END: 

ELSE DO; /* DUMMY FILE CREATED; QUEUE UP INFO UNTIL 
SPACE AVAILABLE AND MESSAGE CAN BE 
RELEASED */ 

DUMMY PTR = HULL; 

CALL "PRIMITIVE PCBDATA (RELEASOR, «iGET,8PRIPTY , 

FDATA, ERROR) ; 

CALL RCBPUTQ (PCT U LIMIT, « RIGHT , RELEASOR , 

MSG SEMAPH OH E7 FDATA, DUMMY PTR , RCBNR , ERROR) ; 
OUT SPAClRE’Q = OUT SPACE REQ ? 1; 

END"; “ “ 

END FILE CREATOR; 



SrACE_SESCLVER: PROC (PCTIHAK) ; 

/* THIS SUBROUTINE ATTEMPTS TO RESOLVE OUTSTANDING 
FILE CREATION REQUESTS V 
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DCL fPCTINAM, DAT , POSH, PIN AM., FINAM, PRI , SEMA, D AT2 , DAT A) 
FIXED BINARY; 

DCL (FOUNDS EMPTY) BIT(1), DU MY PTR POINTER; 

DCL CDATA CHlR(8) ; ~ 

POSIT =0; 

DO WHILE (CUT SPACE REQ -.= 0); POSIT = POSIT + 1; 

/* GET THE~SP ACE“A V AIL ABLE ; AN OUTSTANDING REQUEST 
FOR A FILE FROM THE QUEUE; AND THE SPACE REQUIRED 
FOR THIS FILE REQUEST. */ 

CALL PRIMITIVE RCBDATA (PCTINAM, #GET, #CN1 SZ, DAT .ERROR) ; 
CALL RCB FIND (PCT U LIMIT , #RIGHT , #FNDCP57POSIT , PI NAM, 
FINIMTPEI, ERROR) ; 

CALL PRIMITIVE RCBDATA (FINAM, #GET,#CNT SZ , DAT2 , ER KCR) ; 
IF (EAT >= DAT"2) THEN DO; ■ ~ 

/* SUFFICIENT SPACE IS AVAILABLE; REMOVE THE 

FILE REQUEST FROM THE QUEUE. */ 

CALL RCBGETQ (PCT U LIMIT , # RIGHT , PI NAM , SEMA , DUMMY PTR 
/ FINIM7FCUND / Q EMPTY, ERROR) ; 

/* UPDATE THE SPACE AVAILABLE */ 

DATA = DAT - DAT2; 

CALL PRIMITIVE RCBDATA (PCTIN AM , #PUT, #CNT SZ, 

DATA, ERROR) ; 

OUT SPACE REQ = OUT SPACE REQ - 1; 

7* INITIALIZE FILE RCB ELEMENTS. */ 

CALL PRIMITIVE RCBDATA (FINAM , * PUT , #GFILE ,# #AV AIL , 

ERROR) ; 

CALL PRIMITIVE_RCBD ATA (PCTINAM ,*GET, #DINAKE, DAI A, 

ERROR) : 

CALL PRIMITI VE_RCBDATA (FI NAM , If PUT , ffDINAME, DATA, 

ERROR) ; 

/* RELEASE A MESSAGE TO THE INTERFACE PROCESS 

TO UPDATE THE PCI DIRECTORY. */ 

FIELD 4 = DATA; 

CALL PRIMITIVE RCBDATA (DATA , #GET , #OWNER , DAT A , ERROR) ; 
ANSWER REQUEST - = FALSE; 

FIELD 1 — = SSDIRAD; 

FI ELD 2 = FINAM; 

FIELD3 = DAT2; 

CALL PRIMITIVE RCBDATA-(FINAM, #GET, #TFILE , FI ELD 5 , 

ERROR) ; 

CALL PRIMITIVE RCBD AT A (FI NAM , #G£T , #S OR P,FIELD6, 

ERROR) ; ~ - 

CALL PRIMITI VE_E EL E AS E (DATA, SRFILEW, MESSAGE, ERROR) ; 

/* SETUP AND RELEASE A MESSAGE TC THE PROCESS 

REQUESTING A FILE. */ 

CALL PRIMITIVE RCBDATA (PC TINA M , #GET,#XNAME, CDA1A, 

ERROR) ; 

CALL PRIMITI VE_RCBDATA (FIN AM, 4 PUT , # XNAME, CD ATA , 

ERROR) ; 

FIELD 1 - FINAM; 

CHAR FIELD 2 = CDATA : 

ANSWER REQUEST = FAi-SE; 

MSG SEMAPHORE = 0: 

FIIIC2, FIELD3 = 0; 

CHAR FIELD 1 = • • ; 

CALL - PRIMITIVE RELEASE (PINAM, SEMA , MESSAGE, ERROR) ; 
POSIT = POSIT - 1; 

DAT = DAT - DAT2; 

END; 

/* CHECK FOR MORE OUTSTANDING REQUESTS TO BE 

SATISIFIED. */ 

IF (POSIT = OUT SPACE REQ) THEN RETURN; 

END: 

RETURN ; 

END S P A C E_ F. E SO L V E R ; 

END FILE_SPACE_MAH AGER; 
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MODULE SPECIFICATION 



NAME: 'I NTER R UPT HA NDLER TYPE: P ROC ESS 

PARAMETERS 

INPUT OUTPUT TYPE CO NTEN TS 

None 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PARA MET ERS PURPOSE 



Release Process I-Narae, 
Semaphore, 
Message Pointer, 
Error Parameter 



Interrupt Interrupt Numner, 
Disabler Interrupt Save- 
Vector 



a) SError - Semaphore used to 
send messages to the Error 
Handler. 

b) $ X X X.X X X - Semaphore used to 
send messages to an inter- 
face process or process 

a process expecting an 
interrupt message. 

This module is invoked tc dis- 
able all interrupts while 
the handler is in execution. 



Interrupt Interrupt Number, 
Enabler Interrupt Save- 
Vector 



ia restate CPIname, 

Processor, 

Error Parameter 

Restore- PIName, 

State Processor, 

Error Parameter 

RCBData Resource I-Name, 

Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 



This module is invoked tc en- 
able a specific interrupt or 
enable all interrupts disabled 
by this process. 

This module is invoked tc save 
the current state of execution 
of a process being preempted. 

This module is invoked to 
restore the state of the pre- 
empted process. 

Generic entry point to RCB 
Handler module to enter or get 
data concerning a resource. 



Find Resource Type, 

I-Name Resourse X-Name, 

Resource I-Name, 
Error Parameter 



Entry point to RCB Handler 
used to get the internal name 
for the resource specified by 
type (file, device, etc.) and 
external name. 
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EXTERNAL CALLS MADE BY OTHER MODULES 

NAM E PURP OSE . 

Invoked directly by hardware when an interrupt occurs. 



DATA STRUCTURES USED 

NAME FIELD TYPE PUR POSE/ VALUE S 



Message 

Buffer 



Based Dynamically allocated, pointer 

qualified structure used for 
sending information concerning 
the interrupt via a Release. 



Sa veint 



Bit(1) Array used to save the status 
Array of the interrupts; arguement 

in call to the Disabler and 
Enabler. 



MODU LE D ESCRIPTION 

This process is in voke-scheduled by hardware when ever an 
interrupt occurs. It determines whicn interrupt was set, 
sets up a message to the appropriate interface process and 
resets the interrupt. The current process is temporarily 
preempted until the interrupt is handled. This module has 
only been partially implemented. 
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^INCLUDE NAMCHGR; 



/***** INTERRUPT HANDLER *****/ 



(CHECK (ERROR)) : 

INTERRUPT^ HANDLER: PROC OPTIONS (MAIN) ; 

^INCLUDE GENEEC; 

/(INCLUDE CSDCI; 

^INCLUDE PCBDCL; 

^INCLUDE REQRELD; 

5JIHCLUDE BHMSG; 

ON CHECK (ERROR) 

BEGIN; 

IE (ERROR i= 0) THEN DO: 

(NCCHECK (ERROR) ) : EEGIN; 

IIELD1 = MYNAME; 

FI ELD 2 = ERROR; 

CALL PRIMITIVE RELEASE (A NY PROC , $ ERROR , MESSAGE, 

ERROR) ; 

ERROR = 0; 

GO TO RETURN PT ; 

END; 

END; 

END ; 

DCL (SAV PROC ,IN A ME , INTF PROC , SEMAPHORE) FIXED BINARY; 

DCL E"BfiOR FIXED BINARY; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIMITIVE_INTERRUPT_DISENABLSR (hLL_I NT , SA VEIN TS) ; 

/*** SAVE THE STATE OF CURRENT PROCESS ***/ 

SAV PRCC=CURRENT PROCESS (SYS PROCESSOR); 

ClLI PRIMITIVE SAVESTAT2 (SAV PROC, SYS PROCESSOR. ERROR) : 
/*** SET CURRENT PROCESS TO INTERRUPT HANDIER' */ 
CURRENT^ PROCESS (S YS_PROCESSOR) = iiYNAHE; 

/*** IDENTIFY THE INTERRUPT ***/ 

CALL INI EPiRUPT_I DENT IFIER ; 

/*** RELEASE THE MESSAGE TO PROCESS CONCERNED */ 
CALL PRIMI1IVE_EELEASE (IN TF_PROC, SEMAPHORE , MESSAGE, E RBOR) ; 

/*** RESTORE THE STATE OF INTERRUPTED PROCESS */ 
CALL PBIMITIVE_R ESTORESTATE (SA V_PROC,SYS_ PROC ESS OR, ERROR) ; 

/*** REENABLE THE INTERRUPTS ***/ 

CALL FRIMITIVE_INTER.RUPT_ ENABLER ( ALL_INT ,SAVEINTS) ; 

INTERRUPT IDENTIFIER: PROC; 

/* IDENTIFY WHICH INTERRUPT IS SET, SET MESSAGE BUFFER, 
RESET THE INTERRUPT, SET LOCAL VAKIAEIES , I NTF PROC 
AND SEMAPHORE, APPROPRIATELY AND TAKE CARE OF AHY 
SPECIAL ACTION REQUIRED */ 

END INTERRUPT IDENTIJ? IER'; 

T- 

RETURN PT: 

END I NTlRR UP1’_H ANDLER ; 
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MODULE SPECIFICATION 



NAME: RELEASE 



TYPE: PRIMITIVE 



PARAMETERS 

IN PU I OUTPUT £ YP E CO NTEN TS 



Addressee 



Semaphore 



Message 



Error 



Integer 



Integer 



Pointer 



Integer 



Process, specified or unspeci- 
fied, expected to do a match- 
ing Reguest. 

Message/Resource class identi- 
fier. 

Qualifies message buffer which 
contains the -information to be 
entered in the message buffer 
reguest. 

Error condition code. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PARAMETERS PAPPOSE 



Interrupt Interrupt Number, 
Disabler Save Vector 



Interrupt Interrupt Number, 
enabler' Save Vector 



RCBData Resource I-Name, 

Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 



This module is invoked to dis- 
able all interrupts while 
Release is in execution. 

The status of the interrupts 
is saved in the Save Vector. 

This module is invoked tc re- 
enable ail interrupts which' 
were disabled by the current 
module in execution. 

Generic entry point to RC3 
Handler module used by this 
module to verify the semaphore 
passed as an arguement. 



RCEPUTQ 



PCBData 



PCBData 



Resource I-Name, 
Left/Eight Queue, 
Process I-Name, 

Data Parameter, 
Priority , 

Message Pointer, 
Data Parameter, 
Error Parameter 

Process I-Name, 
Put/Get Iaentirier, 
Field Identifier, 
Vector Lower Limit, 
Vector Upper Limit, 
Vector Parameter, 
Error Parameter 

Process I-Name, 
Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 
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Scheduler 



(NONE) 



Allocater Caller, 

Addressee, 

Semaphore, 

Message, 

BeuRel Boolean, 
Match Boolean, 
Error Parameter 



This primitive is invoked to 
schedule a process for elec- 
tion if the current process 
doing the release matched an 
outstanding request from a 
blocked process. 

This primitive is invoked to 
determine if a matening re- 
guest has neen made for this 
message or the resource teing 
released for reallocation to a 
process. If Match is true the 
process is unblocked. 



EXTERNAL CALLS MADE BY OTHER MODULES 
MM PU RPO SE 

Invoked by all system and user processes. 



DATA STRUCTURES 
NAME FIELD 


USED 

TYPE 


PURPOSE/VALUES 


Saveint 


Bit ( 1) 
Array 


Array used to save the status 
or the interrupts; argueicent 
in call to Disabler and 
Enabler. 



MODULE DESCRI PTIO N 

This primitive has been designed to provide a uuiform method 
for interprocess communication and resource allocation. The 
message/resource class identifier and process access autho- 
rization are verified. The Allocator is then invoked tc 
determine if the release can be matched. If it is, the pro- 
cess is unblocked and the Scheduler is invoked. 
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MOD ULE_IMPLE MENTATION 



/{INCLUDE NAMCHGR ; /***** RELEASE *****/ 

***#*#**##**:$::$:*****>{<*:{< * * * # * 

THIS PRIMITIVE DETERMINES IF THE CURRENT RELEASE 
MATCHES AN OUTSTANDING REQUEST. IF IT COES, THE E LOCKED 
PROCESS IS ACTIVATED AND THE SCHEDULER IS INVOKED. **/ 

(CHECK (ERROR) ) : 

PRIMITIVE RELEASE: PROC (TO, SEMAPHORE , MSG PTR ,ERPRM) 

OPTIONS (MAIN) ; 

/{INCLUDE GENEEC; 

^INCLUDE CSDCL ; 

/{INCLUDE RCEECL; 

XXNCLUDE PCBECL; 

ON CHECK (ERROR) 

BEGIN; 

IF (ERROR ->= 0) THEN DO; 

ERPfiM = ERROR; 

GO TO RETURN POINT; 

ENE; 

END ; 

DCL (CALLER, ADDRESSEE, SEMAPHORE, ERPRM, PHI, TO) 

FIXED EINAfiY; 

DCL ERROR FIXED BINARY INIT (0) ; 

DCL MSG r-TE POINTER; 

DCL ( V ATI D, HaTCH) BIT ( 1 ) ; 

DCL (S YSPRC ,CUE) BIT (1) ; 

DCL EEL BIT (!) STATIC INITIAL (' 1 ' B) ; 

DCL RES VEC (SEM L LIMIT : SEM LIMIT) BIT (2); 

DCL 1.0 TIXED BINARY STATIC INIT(O); 

DCL NULP POINTER STATIC; 

/*** DISENABLE ALL INTERRUPTS***/ 

CALL PRIMITI VE_I NTERR UPT_DI SEN ABLER { AL1__I NT , SAVE I NTS) ; 

/* VERIFY SEMAPHORE AND ACCESS */ 

CALL ERIMITI VE_RCBDAT A (SEMAPHORE, #GET, # ASSGND, VALIE , 

ERROR) ; 

IF (-.VALID) THEN ERROR = 303; 

CALLER = CURRENT PROCESS (PROCESSOR) ; 

CALL PRIMITIVE PCBDATA ( CALLER, a)GET , eORE-SVEC, SEM I LIMIT, 

SEN LIMIT, RES VEC , ERRORT 

IF (BES_VEC (SEMAPHORE) =##N$ACC) THEN - ERROR = 307; 

/*** INVOKE THE ALLOCATOR ***/ 

ADDRESSEE = TO; 

CALL PRIMITIVE ALLOCATOR (CALLER, ADDRESSEE, SEMAPHORE , 

MSG_PTR,REL, MATCH, ERROR) ; 

IF (MATCH) THEN DO; /*** ACTIVATE THE PROCESS ***/ 

CALL PRIMITIVE PCBDATA (ADDRESSEE, ©PUT, ©STATUS, 

©©REDYA, ERROR) ; 

CALL PRIMITIVE PCBDATA (ADDRESSEE, ©GiiT ,©PRIRTY , PRI, 

ERROR) : 

CALL PRIMITIVE PCBDATA (ADDRESSEE, ©GET ,3SYSPR0 , 

SYSPRO, ERROR) ; 

IF (SYSPRO = IRUE) THEN QUE = #05; ELSE QUE = flUSER; 
NULP = NULL; 

CALL RCBPUTQ (# REDYA, CUE, ADDRESSEE, 10 , PRI , N ULP , 10 , 
ERROR) : 

CALL PRIMITIVE SCHEDULER; 

K7JD; 

RETURN POINT: /*** REENABLE. THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (ALL 1 NT , SA VEJNTS) ; 

END PRIMITIVE RELEASE; 
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M0DUL3 SPECIFICATION 



NAME : RJ£UEST 



TYPE: PRIMITIVE 



PARAMETERS 
INPUT OUTPUT 

Addressee 

Semaphore 

Message 



Error 



T YPE 

Integer 



Integer 



Pointer 



Integer 



CON TEN TS 

Process, specified or unspeci- 
fied, expected to do a match- 
ing Release. 

Message/Besource class identi- 
fier. 

Qualifies message buffer in 
which the matching release 
message inrorraation is tc be 
of a process doing a matching 
entered. 

Error condition code. 



EXTERNAL CALLS MADE TO OTHER MODULES 

NAME PARAMETERS PMRPOS^ 

Interrupt Interrupt Number, This module is invoked tc dis- 

Disabler Save Vector able all . interrupts while 

Request is in execution. 

The status of the interrupts 
is saved in the Save Vector. 



Interrupt Interrupt Number, 
enabler Save Vector 



This module is invoked tc re 
enable ail interrupts which 
were disabled by the current 
module in execution. 



R CB Da t a 



PCBDa ta 



PCBEata 



Resource I-Name, 
Put/Get Identifier, 
Field Identifier, 
Data Parameter, 
Error Parameter 



Generic entry point to RCB 
Handler module used by this 
module to verify the semaphore 
passed as an arguement. 



Process I-Name, 
Put/Get Identifier, 
Field Identifier, 
Vector Lover Limit, 
Vector Upper Limit, 
Vector Parameter, 
Error Parameter 



Generic entry point to PCB 
Structures module used by this 
module to verify access autho- 
rization for the process using 
the semaphore. 



Process I-Name, 
Put/Get Identifier, 
Fieid Identifier, 
Data Parameter, 
Error Parameter 



Generic entry point to PCB 
Structures module to change 
the reguesting process's sta- 
tus to blocKed if no match . 
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Scheduler (NONE) 



Savestate Requestor, 
Processor, 

Error Parameter 



Allocator Caller, 

Addressee, 

Semaphore, 

Message, 

£eq_Rel Boolean, 
Match Boolean, 
Error Parameter 



This primitive is invoked to 
schedule a process for ejec- 
tion if the current process 
doing the reguest gets blocked 
for an answer or a resource. 

This primitive is invoked to 
save the current state of exe- 
cution of the process which 
did an unmatched request. 

This primitive is invoked to 
determine if a matching re- 
lease has been made or if the 
reguested resource is availa- 
ble for allocation to this 
process. If Match is false the 
process is blocked. 



EXTERNAL CALLS MADE BY OTHER MODULES 
NAME ' PURPOSE 



Invoked by all sxstem and user processes. 



DATA STRUCTURES USED 

NAME ^ FI ELD TYPE, PURPOSE/VALUES 



Saveint 



Bit(1) Array used to save the status 

Array of the interrupts; a rguement 

in call to Disabler and 
Enabler. 



MO DULE_ DESCRIPTION 

This primitive has been designed to provide a uniform method 
for interprocess communication and resource allocation. The 
message/resource class identifier and process access autho- 
rization are verified. The Allocator is then invoked tc 
determine if the request can be satisfied. If not, the pro- 
cess is blocked and the Scheduler is invoked. 
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MODULE IMPLEM ENTATI ON 



^INCLUDE NAMCEGE; /***** REQUEST *****/ 

/# i***#*****##**# **##**#* 

THIS PRIMITIVE DETERMINES IF THERE IS A MATCHING 
RELEASE FOR THE CURRENT REQUEST. IF NOT , THE INVOKING 
PROCESS IS BLOCKED, THE REQUEST QUEUED, AND SCHEDULER 
INVOKED. **/ 

(CHECK (ERROR)): 

PRIMITIVE REQUEST: PBOC (TO, SEMAPHORE, MSG PTR , ERPRH) 

OPTIONS (MAIN) ; 

^INCLUDE ECBECL; 

^INCLUDE OSDCL; 

^INCLUDE ECBLCL; 

DCL (SEMAPHORE, ADDRESSEE, CALLER, ERPRM, TO) FIXED BINARY; 

CCL ERROR FIXED BINARY INIT (0) ; 

DCL MSG PTR POINTER; 

DCL RE C — Eli ( 1) STATIC INITIAL (' 0 ' B) ; 

DCL VALID F.IT ( 1 ) INITIAL (' 1 ' B) ; 

DCL RES VEC (SEM L LIMIT : SEM LIMIT) BIT (2) ; 

DCL MATCH BIT ( 1 ) ; “ p 

ON CHECK (ERROR) 

BEGIN; 

IF (ERROR -.= 0) THEN DO; 

ERPRM = ERROR; 

GO TO RETURN POINT; 

END; 

END; 



/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIMITIVE_INTERRUPT_DISENABLER (ALL_IN3 , S AVEI NTS ) ; 

/* VERIFY SEMAPHORE AND ACCESS */ 

CALL PRIMITIVE RCBDATA (S EHAPHORE,-*GEI, KASSGND, VALID, 

ERROR) ; 

IF (-.VALID) THEN ERROR = 303; 

CALLER = CURRENT PROCESS (PROCESSOR) ; 

CALL PRIMITIVE PCBDATA (CALLER, a>GET,3RESVEC, SEM L LIMIT, 

SEM LIMIT, RES VEC,ERRORT:“ 

IF (RES_VEC (SEMAPHORE) =#cNt5ACC) THEN ERROR = 307; 

/*** INVOKE THE ALLOCATOR ***/ 

ADDRESSEE = TO ; 

CALL PRIMITIVE ALLOCATOR (C ALLER, ADDRESSEE, SEMA PHORE , 

MSG_PTic,REQ, MATCH, ERROR) ; 

IF (-.MATCH) THEN DO; /*** BLOCK THE INVOKING PROCESS **/ 
CALL PRIMITIVE PCBDAT A (CALLER , at PUT, 3STATUS , d)3BLKDR , 

ERROR) ; 

CALL PRIMITIVE S A VEST ATE (CALLER , PROCE SSOR , ERRO R ) ; 
CURRENT PROCESS (PROCESSOR) = 0; 

CALL PRIMITIVE SCHEDULER; 

END; 



RETURN POINT: 

- /*** REENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (ALL IHT , S A VEINTS) ; 
END PRIMITIVE REQUEST; 
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MODULE SPECIFICATION 



NAME: ALLOCATOR 




' TYPE: PRIMITIVE 


PARAMETERS 
INPUT ODTFUT 


TYPE 


CONTENT^ 


Addressor 


Integer 


Process internal name which 
initiated the call to Reguest 
or Release. 


Addressee 


Integer 


Process internal name to which 
the message is addressed or 
from which the message is ex- 
pected; may be unspecified. 


Semaphore 


Integer 


Message/Resource class iden- 
tifier. 


Message 


Pointer 


Qualifies message container. 


Reg Rel 


Bit (1) 


Boolean identifying message 
type; request or release. 


Match 


Bit (1) 


Boolean specifying if the cur- 
rent message matched a queued 
message. 


Error 


Integer 


Error condition code. 



EXTERNAL CALLS MADE TO OTHER 
NAME _PALANEiRRS 

PCBData Process 1-Name, 

Put/Get Identifier 
Field Identifier, 
Data Parameter, 
Error Parameter 



MODULES 

PURPOS E 

Generic entry point to PC3 
Structures module to obtain 
the priority of the process 
which initiated the message 
when no match was found. 



RCBPUTQ Resource I-Name, 
Left/Right Queue, 
Process I-Narae, 
Data Parameter, 
Priority, 

Message Pointer, 
Data Parameter, 
Error Parameter 

RCB- Addressor, 

Match Addressee, 

Semaphore, 
Message, 

ReqRel , 

Match, 

Error Parameter 



Entry point to RCB Handler 
used to insert a process 
or a message on a specified 
resource queue by priority 
when no match was found. The 
queue is specified by the se- 
maphore and Req_Rel . 



This primitive is invoked to 
compare outstanding messages 
on the specified semaphore 
queue (if any) and returns the 
message buffer pointer if a 
match is found. 
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EXTERNAL CALLS MADE BY OTHER MODULES 

NAME PUJLEOSj; 

Reguest S Release Resource allocation and message matching 

or gueueing unmatched messages. 



DATA STRUCTURES USED 

NAME FJELD TYPE PU RPOSE^/VAL U ES 



Message Based Structure used to store un- 

Buffer matched message releases until 

matching reguest is received. 



MOD ULE DESCR I PTI ON 

This primitive has been -designed to manage the allocation 
of resources, handle interprocess communication, and assist 
the primitives Request and Release. Unmatched message re- 
leases are queued on the specified semaphore queue after 
transfering the message data to a temporary container where- 
as unmatched message requests result in the gueueing of the 
message and the process doing the request. Matched releases 
unblock processes which had outstanding requests satisfied 
and in either case, matched requests or releases, the data 
in the queued release or current release is transferred in- 
to the requestor's message container. 
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H0j2ULE_IHPLEMENT ATION 



^INCLUDE NAMCHGR; /***** ALLOCATOR *****/ 

(CHECK (ERROR)): 

PRIMITIVE ALLOCATOR: PROC (ADDRESSOR, ADDRESSEE, SEMAPHORE, 

MSG PTR, REQ REL, MATCH, ERRORPAEil) 
OPTIONS*] MAIN) ; ” 

^INCLUDE PCBDCL; 

^INCLUDE GENEEC; « 

^INCLUDE BCEECL: 

^INCLUDE REQRELD; 

ON CHECK (ERROR) 

B*E GIN* 

IE (ERROR -*= 0) THEN DO; 

ER50RPARM = ERROR; 

GO TO RETURN POINT; 

END; 

END; 

DCL jADDRESSOR, ADDRESSEE, SEMAPHORE, PRI , DATA, ERRORP ARM) 
FIXED BINARY; 

DCL ERROR FIXED BINARY INIT(O); 

DCL (MSG PTR , MSGPTR) POINTER; 

DCL (MAT'LK, R£Q_REL) 3IT(1); 

/* DETERMINE IF THE CURRENT MESSAGE MATCHES A QUEUED 

MESSAGE. #/ 

CALL PRIMITIVE RCB MATCH (ADDRESSOR, ADDRESSEE, SEMAPHORE, 

MSGPTR, REQ_REL,MATCH, ERROR) ; 

IF ((MATCH) & (-.REQ REL)) THEN DO; /* MATCH & REQUEST */ 
IF (MSG PTR ->= NULL) THEN DO; 

MSG PlR -> MESSAGE BUFFER = MSGPTR -> MESSAGE EUFFER; 
FREL MSGPTR -> MESSAGE BUFFER; 

END ; 

RETURN; END; 

IF ((MATCH) & (REQ REL)) THEN DO; /* MATCH & RELEASE */ 
IF (MSG PTR -•= NULL) THEN 

MSGPTx? -> MESSAGE BUFFER = MSG_PTR -> MESSAGE EUFFER; 
MSGPTR -> RELEASOR = ADDRESSOR; 

RETURN; END; 

IF ( (iMATCH) & (REQ REL) & (MSG PTR --= NULL)) THEN DO; 

7* NO MATCH 6 RELEASE */ 
ALLOCATE MESSAGE BUFFER SET (MSGPTR) ; 

MSGPTR -> MESSAGL BUFFER = MSG PTR -> MESSAGE EUFFER; 
MSGPTR -> RELEASCL - A DDR ESSO Rj 

END; 

ELSE MSGPTR = MSG_PTR; /* NO MATCH & REQUEST */ 

/* NC MATCH: QUEUE THE MESSAGE BY PRIORITY V 

CALL PRIMITIVE PCBDATA (ADDRESSOR, OGET ,3PRIRTY,PRI, 

ERROR) ; 

CALL RCBPUTQ (SEMAPHORE, REQ REL, ADDRESSOR , ADDRESSEE , PRI , 
MSGPTR, DATA, EftRCR) ; 



RETURN POINT: 

END PRlMITI VE_ALLOCATOR; 
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MODULE SPECIFICATION 



NAME: SCHEDULER TYPE: PRI MITIVE 

PARAMETERS 

^NPUT OUTPUT TYPE CONTENTS 

None 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PARAMETERS PURPOSE 



Interrupt Interrupt Number, 
D is abler Save Vector 



This module is invoiced to dis- 
able all interrupts while 
Scheduler is in execution. 

The status of the interrupts 
is saved in the Save Vector. 



Interrupt Interrupt Number, 
enabler Save Vector 



This module is invoked tc re- 
enable all interrupts which 
were disabled by the current 
module in execution. 



Savestate CPIname, 

Processor, 

Error Parameter 



This module is invoked tc save 
the current state of execution 
of a process being preempted. 



Restore- PIName, 

State processor. 

Error Parameter 



This module is invoked tc 
enter the newly scheduled pro- 
cess's state vector into tne 
the alloca.ted processor's 
regis'ters. 



PCBData Process I-Name, Generic entry point to PCB 

Put/Get Identifier, Structures module to enter or 
Field Identifier, obtain data. 

Data Parameter, 

Error Parameter 



RCBGETQ 



RCBPUTQ 



Resource 
Left/Rig 
Process 
Q^Eata P 
Message 
C_Eata P 
Found Bo 
Q_Status 
Error Pa 



I-Name, 
ht Queue, 
I-Name, 
ar ameter , 
Pointer , 
arameter , 
oiean , 
Boolean , 
rameter 



Resource I-Name, 
Left/Right Queue, 
Process I-Name, 
Data Parameter, 
Priority , 

Message Pointer, 
Data Parameter, 
Error Parameter 



This entry point to RCE Rand- 
ier is used tc remove a cro- 
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RCB-Fina Resource 1-Name, 
Left/Right Queue, 
Find Operation, 
Queue Position, 
process I- Name, 
Data Parameter, 
Data Parameter, 
Error Parameter 



Tnis entry point to RCB Hand- 
ler is used to determine queue 
position of a process and put 
or get a copy of data. The 
process, position, or both may 
be s pe ci f leu to select a spe- 
cific process, any process at 
the specified position ol a 
specific process at a speci- 
fied position. 
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EXTERNAL CALLS 
NAME 


MADE BY OTHER 
PURPOSE 


MODULES 


Reguest 


Current 
reguest ; 


process blocked on unsatisfied 
hense processor available. 


Release 


Current 
which un 
emption 


process did a matching release 
blocked a process; hense, pre- 
possible. 


DATA STRUCTURES 
NAME FIELD 


USED 

TYPE 


PURP05.E/VALUES 


Saveint 


Bit (1) 
Array 


Array used to save the status 
of the interrupts; arguement 
in call to Disabler and 
Enabler. 


Current 

Process 


Integer 

Vector 


This static array identifies 
processes assigned a processor 
which is identified by the ar- 
ray index. 


CPU CPSOC 
Pri~ 


Integer 

Vector 


Array of priorities for the 
current processes. 



MODULE D ESCRIP TIO N 

This primitive has teen partially implemented to perform 
scheduling of processes with preemption only among operating 
system processes. System processes execute only on the 
system processor while user processes execute on the other 
processors. 
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MODULE IMPLEMENTA TIO N- 



^INCLUDE NAMCHGR; /***** SCHEDULER *****/ 

/* THIS PRIMITIVE SCHEDULES PROCESSES TO BE SUN ON 

PROCESSORS. */ 

(CHECK (ERROR)): 

PRIKITI VE_SCH£DULER : PROC OPTIONS (MAIN) ; 

^INCLUDE OSDCL; 

^INCLUDE PCBECL; 

^INCLUDE RCEECL; 

55INCLUDE GEN EEC; 

ON CHECK (ERROR) 

E E G I N * 

If (ERROR -•= 0) THEN GO TO RET URN_ POINT ; END; 

DCL (PEI ,POSIT ,PINAME, DUMHYFB) FIXED BINARY (15), 

ERROR FIXED BINARY (15) INIT(O), 

CPU CPROC PRI{4\ FIXED BINARY (15) STATIC INIT ( (4) 0) 
, (FC’DND/DU'HEYBT ,RE SCHED, PREEMPT) EIT(1), 

DUMMYPIR POINTER! 



/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRINITIVE_IN TERR UP I_DI SEN ABLER ( ALL_I NT , SA V El NTS) ; 

/*** SCHEDULE USER PROCESS IF PROCESSOR IS 

AVAILABLE ***/ 

DO I = 1 TO NUM3CPU; 

IF ((I ->=SYS PROCESSOR) & (C UR RENT_ PROCESS (I) = 0)) 

THEN DO; 

POSIT = 1 ; 

CALL RGB FIND (#EED YA , jtUSER , S FNDOP5 , POSJ.T , PI N AME . 

— DUdLYFB, PRI, ERROR) ; 

IF (PINAM E -.= 0) THEN DO; 

CALL RCBGETv (# RED Y A , # USER, PIN AMI ,DUMKYFE , 

DUHHYPTR, DUMWYFB, FOUND, DUMEYB 1 , ERROR) ; 
CALL PRIMITIVE PCBDATA (PI N AMS , <2PUT, 3 ST AT US , 

aaRUN, ERROR) ; 

CPU CPROC PRI (I) = PRI; 

CALI PRIMITIVE RESTORESTATE (PINAME, I, ERROR) ; 
END; 

END; 

END; 
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/*** SCHEDULE SYSTEM PROCESSES: PREEMPT IF 

NECESSARY ***/ 

posit = 1: 

CALL RCE FIHD(#LEDYA,?fOS,#FNDOP5,POSIT,PINAKE,DUMMYFE, 
PHI , ERROR) ; 

IF (PINAME 0) THEN DO; 

IF (CURRENT PROCESS (SYS PROCESSOR) = 0) THEN 
EE SCHED - = TRUE; 

ELS? DO; 

RE SCHED = FALSE* 

IF" (PEI > CPU CPROC PRI (SYS PROCESSOR)) THEN DO; 
PREEMPT = TEUE; - 

CALL RCBPUTQ (#REDYA, #0S, CURRENT PROCESS ( 

SYS PROCESSOR) - DUMMYFS, CPU CPROC PRI ( 

SYS - PROCESSOR), DUMMYPTE,DUfII'.YFB, ERROR) ; 

CALL PRIMITIVE SAVEST ATE (CURRENT PROCESS ( 

SYS PROCESSOR) ,SYS PROCESSOR , ERROR) ; 

CALL PRIMITIVE PCBbATA (CURRENT PROCESS ( 

SYS PROCESSOR) , a/PUT, 3'ST'A'TES ,'a>5)REDYA, ERROR) ; 

END; 

ELSE PREEMPT = FALSE; 

END; 

IF (RE SCHED | PREEMPT) THEN DO; 

CPU CPROC PRI (SYS PROCESSOR) = PRI; 

CALI RCBGEIQ (sREDlA , #OS. PINAME, DUKMIFB,DUMKYEIE, 
DUMMYF3, FOUND, DUMMYB1 , ERROR) ; 

CALL PRIMITIVE PCBDATA (PINAME, d>PUT,a)STATUS , S2RUN, 
ERROR) ; 

CALL PRIMITIVE RESTOBESTATE (PINAME , SYS PROCESSOR, 
ERROR) ; ~ 

END; 

END; 



/*** REENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (ALL INT , SAVEINTS) ; 
RETURN_P0IN1: " 

END PRIHITIVE_SCHEDULSR; 
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MODULE SPECIFICATION 



NAME; D E VIC E_ DIRECTORY 



TYPE: PRIMITIVE 



PARAMETEES 
INPUT OUTPUT 


TYPE 


CONTENTS 


X-Nane 




Integer 


Identifies device external 
name. 




Sha_Pri 


Integer 


Device access type; shared or 
private. 




Xnam_Pro 


Char (8) 


External name of the interface 
process. 




NR_PGS 


Integer 


Number of pages in page table. 




PglocVec 


Integer 

Array 


Vector of the interface pro- 
cess's page addresses. 




Priority 


Integer 


Priority of interface process. 




Interrupt 


Integer 


Device interrupt identifier. 




Found 


Bit (1) 


Boolean, indicatina that the 
device specified by external 
name was/was not in the Device 
Directory. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAil F £i5^Ei2TELS PURPOSE 



Interrupt Interrupt Number, 
Disabier Save Vector 



Interrupt Interrupt Number, 
enabler Save Vector 



This module is invoked tc dis- 
able all interrupts while 
Device Directory is executing. 
The status of the interrupts 
is saved in the Save Vector. 

This module is invoked to re^ 
enable all interrupts which 
were disabled by trie current 
module in execution. 



EXTERNAL CALLS MADE BY OTHER MODULES 
NAMJ PURPOSE 



File Manager, 

Input Controller, 

& Output Controller 



This primitive is invoked to obtain the 
required data to create a device RCB and 
a device interface process. 



143 



DATA STRUCTURES USED 



NAME 


FIELD 


•TYPE 


PURPOSE/VALUES 


7 

Saveiat 




Bit (1) 
Array 


Array used to save the status 
of the interrupts; arguement 
in call to Disabler and 
Enabler . 


Directory 




Static 

Array 


Dictionary, indexed by exter- 
nal name, of the computer sys- 
tem I/O devices. 




Device 

Name 


Char (8) 


Device external name. 




Access 

Type 


Integer 


Device access specification: 
shared or private. 




Process 

Name 


Char (8) 


Interface process external 
name. 




Nr. Pgs 


Integer 


Number of pages in interface 
processes page table. 




Page 

Vector 


Integer 

Array 


List of page addresses for the 
Interface process. 




Priority 


Integer 


Priority of interface process. 




Interrupt 

Number 


Integer 


Identifies device interrupt 
number* 


MODULE DESCRIPTION 







This primitive has been designed to provide the system with 
the necessary information to create an ECE for an I/C device 
and an associated interface process. The device external 
name need only be specified to obtain this information. 
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moduli_ihplemintation 



^INCLUDE NAMCHGR; /* DEVICE DIRECTORY */ 

THIS PRIMITIVE IS USED BY SYSTEM PROCESSES TO GET 
THE REQUIRED INFORMATION TO CREATE AH RCB FOR A 
DEVICE AND A PCB FOR THE INTERFACE PROCESS. */ 

DEVICE DIRECTORY : PROC (XNAME.SHA PRJ,XNAM PBO,NRPGS,PGLCCVEC, 

PHI,INIEPj?NR,FOUND7 OPTIONS (MAIN) ; 



55INCLUDE GEN DEC ; 
%INCLUDE OSDCL; 



DCL (XNAME.XNAM PRO) CHAR(8) ; 

DCL (SHA PR1, NRFGS , PR I , INTRP-TNR) FIXED EINARY ; 

DCL PGLCCVEC (*) FIXED BINARY; 

DCL FOUND BIT (1) ; 

DCL NR_ENTRIES FIXED BINARY STATIC INIT (3) ; 

DCL 1 DIRECTORY (3) STATIC, 

2 DEVNAME CHAR (8) I NIT ( 1 IPDEV 1 • , « FPDEV 1 • , « OPDFV 1 • ) , 
2 SHARPRI FIXED BINARY INIT ( 1 , 1 , 1 ) , 

2 PRCXNAM CHAR *8) I NIT ( * INPRO 1 1 , ' FPR0 1 • , » OUTP R0 1 » ) , 
2 NUM PGS FIXED BINARY INIT (1,1,1), 

2 PG IOC VEC (1) FIXED BINARY INIT (9, 10, 1 1) , 

2 PRIORITY FIXED BINARY INIT (45 , 47,45) , 

2 INTERRUPT_LOC FIXED BINARY INIT (1,2,3); 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIMITIVE_INTERRUPT_DIS£NABL2R (ALL^INT, SA VEINTS) ; 



/* SEARCH THE DIRECTORY FOR THE EXTERNAL NAME */ 

DO I = 1 TO NR ENTRIES WHILE (DEVNAME (I) i-XNAME) ; END; 
IF (I > NR ENTRIES) THEN DO; FOUND= FALSE ; RETURN; END; 
/* IF FOUND TRANSFER THE DATA */ 

SHA PEI = SHARPRI (I) ; 

XNAT3 FF.C = PROXNAM (I) ; 

NRPGl = NUM PGS (I) ; 

PGLOCVEC = PG LOC VEC (I,*) ; 

PRI = PRIOR IT"? (I) ; 

INTEPTNB = INTERRUPT LOC (I) ; 

FOUND = TRUE; 



/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE_INTERR UPT^ENABLER ( ALL_I NT , SA VEI NTS ) ; 



RETURN ; 

END DEVICE_DIRECTORY; 



MODULE SPECIFICATION 



NAME: PCE S TRUCTU RES ' TYPE: PRIMITIVE 

PARAMETERS 

INPUT OU TPUT TYPE CONTENTS 

Parameters specified with the appropriate entry point. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PARAMETERS PURPOSE 



Interrupt Interrupt Number, 
Disabler Save Vector 



Interrupt Interrupt Number, 
enabler Save Vector 



This module is invoked tc dis- 
able all interrupts while 
PCS Handler is in execution. 
The status of the interrupts 
is saved in the Save Vector. 

This module is invoked tc re- 
enable all interrupts which 
were disabled by the current 
module in execution. 



EXTIRNAL CALLS MADE BY OTHER MODULES 
NAME PURPOSE 



Invoked by processes and other primitives. 



DATA STRUCTURES USEE 
NAME FIELD 


i 

TYPE 


PURPOSE/VALUES 


Saveint 




Bit (1) 
Array 


Array used to save the status 
of tne interrupts; arguement 
in call to Disenabler and 
Enabler . 


PCB_REF 




Pointer 


This vector contains the PCB 






Array 


rererence pointers for created 
processes. The index number is 
the process internal name. The 
dimension is bounded by the 
external variable PCB LIMIT, 
initialized at IPL, wnich spe- 
cifies the maximum number or 
processes that can exist at 
any time in the system. 


PCB 




Based 


Process Control Block. 




External 

Name 


Char (8) 


Process external name. 




Parent 


Integer 


Process •creator. 




Child 


Integer 


Internal name of dependent, 
related process. 




Left- 

Sibling 


Integer 


Links independent, related 
processes; value is a process 
internal name or zero. 



Right- 

Sibling 


Integer 


Links independent, related 
processes; value is a process 
internal name or zero. 


PCE Page 
Table_vec 


Pointer 


Qualifies the Page Table 
structure containing the page 
addresses. 


File Integer 

Write_Cntr 


" Value is the number of current 
file open reguests for write 
access into a shared file. 


Sys 

Process 


Bit (1) 


Boolean used to gualify a oro- 
cess as a system/user process. 


Resource 

Vector 


Bit (2) 
Array 


Array used for identifying re- 
source acguisition and access 
authorization. Values are; a) 
##NOACC - access unauthorized 
b) # # ACCES - access authorized 
c ##ACQRD - resource acquired 
d) ##SACRF - allocated resour- 



ces have been sacrificed. 
The array index is a resource 
internal name. 



File Integer 

Status 



Shared file usage identifier. 
Values are: a) ##READR - read 

only, b) ##WRITE - write or 
read and write access, c) 
##SA€R -^sacrificed writer. 



Message_ Pointer Qualifies the message buffer 
Pointer allocated to the process. 



Status Char (8) Process system status. Values: 

a) a)3}BLKDR - blocked for a 
resource 

b) SSBLKDT - blocked for time 

c) cSaiREDYA - blccked for a 
processor 

d) a)a)S0SPD - process suspended 

e) 3a)RUN - process scheduled. 

Priority Integer Process priority. 



Quantum ' Integer 

Cycle_ Integer 
Tame 

Processor Integer 



Registers Integer 
Vector 



Maximum execution time alloted 
for each allocation of the CPU 
to the process. 



Reschedule time period fcr a 
recurrent process. 

Processor allocated to the 
process . 



State vector: status of CPU 
registers saved when execution 
interrupted ot the initial 
state of execution. 
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Based Contains the- number of pages 

and the page addresses. 

Number_ Integer 
Pages 

Table Integer Contains the location of each 

Array page of a process's code. 



|JODULE_DE£CRIPIigN 

This module has been designed to ' be independent and to 
provide sufficient flexibility for modification. A PC5 
structure has been defined above which is allocated dynami- 
cally. Data is entered or retrieved by invoking the module 
at the data- type-specified entry point. The entry point 
specifications have been done separately. 



Page 

Table 
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MOD ULE IMPLEM ENT ATION 



^INCLUDE NAMCHGR; /***** |>CE STRUCTURES *****/ 

PCBSTE : EEOC OPTIO NS (MAIN) ; 

/* ************************ ***** 

OPEEATING SYSTEM SUBMODULE 1 OF DATA STBUCTURES. 

THIS MODULE IS DESIGNED TO BE INDEPENDENT OF THE OTHER 
0.5. MODULES AND TO PROVIDE SUFFICIENT FLEXIBILITY FCR 
EASE OF MODIFICATION. A PRIMITIVE PCB STRUCTURE IS 
DEFINED FOR WHICH SPACE IS ALLOCATED DYNAMICALLY. 
INFORMATION IS ENTERED INTO AND RETRIEVED FROM ELEMENTS 
OF THE STRUCTURE THROUGH A CALL TO THIS "MODULE AT A 
SPECIFIED ENTRY POINT DEPENDING ON THE TYPE OF DATA 
(IE. CHARACTER. BIT STRING, INTEGER, INTEGER ARRAY). 

A SIMPLIFIED PAGE TABLE IS SIMILARLY DEFINED AND 
ALLOCATED, AND IS LINKED TO THE APPROPRIATE PCB. 

jjc**:*****;**#*****:**#****#:}:#*# if / 



SIMCLUDE GEN EEC; 
^INCLUDE CSDCL ; 
55INCLUDE PCBECL; 
foINCLUDE CASESTM; 



DCL NUME_PAGES FIXED BINARY; 

DC! PCB_EEF_AKRAY (50) POINTER STATIC; 



DCL 1 PCB BASED (PCB_PTB) ALIGNED, 
2 £XTERNAL_NAME CHAR (8) , 



2 IMMEDIATE RELATIVES, 

3 { PARENT, 

CHILD, 

LEFT SIBLING, 

RIG Hl_ SIBLING ) FIXED BINARY, 

2 PCB_PA GE_T ABLE_PTR POINTER, 

2 RESOURCES. 

3 FILE SHARE WRITE CTR FIXED BINARY, 
3 VALID SYS "PROCESS BIT ( 1 ) , 

3 EESOUKCE_VEC (120) BIT (2) , 

3 FILE STATUS FIXED BINARY, 

3 MESSAGE POINTER POINTER, 



2 PROCESS EXECUTION DATA, 

3 STATUS CHAR (3) , 

3 ( PRIORITY, 

QUANTUM, 

rvf T V TTMP 

PROCESSR* ) FIXED BINARY, 

3 REGISTERS (10) FIXED BINARY (31); 



DCL 1 PAGE TABLE BASED (PAGE TABLE PTR) , 

2 NUMEIR PAGES FIXED BINARY, “ 

2 TABLE (DUMB PAGES REFER (NUMBER PAGES)) 
FIXED BINARY (15); 
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/* INITIALIZE PCB REFERENCE VECTOR TO NULL AND LAEEL 

INDICIES. THIS INITIALIZATION IS INTENDED TO EE 
DONE AT IP L TIME BY THE SYSTEM SUPERVISOR. */ 



PC3STRINT: ENTRY ; 

DCL EIRSI BIT ( 1) STATIC INIT('VB); 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL FRIMITIVE_INTERRUPT_DISENABLER (ALL_I NT,SAVEINIS) ; 

IF FIRST THEN DO; 

FIRST = FALSE; 

PCB REE ARRAY = NULL; 

ALLCCA1I PCB SET (PCB PTR) ; 

PC E REE ARRAY{1) = p£B PTR; 

PCE^PA GT TABLE PTR = NTJLL; 

QUANTUM 
CHILD , 

LEFT SIBLING, 

RIGHT SIBLING, 

PARENT, 

FILE STATUS, 

FILE-SHARE W RITE CTR , 

CYCLE TIME - = OJ 
PRIORITY = 50; 

VALID SYS PROCESS = TRUE; 

STATUE = 53REDYA; 

EXTERNAL- NAME = ' ERRHNDLR' ; 

RESOURCE— V EC = • OO'B; 

REGISTERS = 0; 

END; 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (ALL I NT ,3AVEINTS) ; 
RETURN; “ - 
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ENTRY POINT SPECIFICATION 



MODULE NAME: PCB 


.STRUCTURES 


PARAMETERS 
INPUT OUTPUT 


TYPE 


Parent 


Integer 


Right 

Sibling 


Integer 


External 

Name 


Char (8) 


Priority 


Integer 


Sys_Proc 


Bit (1) 


State 


Integer 

Array 



Internal Integer 
Name 

Cycle_ Integer 

Time 

Error Integer 



ENTRY NAME: GE TPCd 



CONTENTS 

Process creator. 

Child of the parent may be 

zero. 

External name c£ the process. 



Priority of the process. 

System/User process boolean. 
Values: #0S or *USE3. 

Initial state vector used to 
set the CPU registers upon 
allocation of a processor for 
execution. 

Process internal name. 



Reschedule time period fcr a 
recurrent process. 

Error condition code. Values: 
a) 205 - PCB space unavailable 



ENTRY P0IN1 rESC BX PTION 

This entry point is invoked when a new process is being 
created. A PCE is allocated and initialized provided space 
is available and the number of allowable processes 
(PC 3_ LIMIT) is not exceeded. A process internal name is 
returned to the invoxing module and PCE reference pointer is 
saved in the PCS Reference vector until the process is 
destroyed. The entry point is restricted from direct access 
by a user process. 
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ENTR Y P OINT IMPLEMENTATION 



/* * 



THIS ENTRY POINT IS INVOKED WHEN A NEW PCS IS TO BE 
ALLOCATED AND INITIALIZED. AN INTERNAL NAME IS 
ASSIGNED AND A PCS ALLOCATED IF SPACE IS AVAILABLE 
(IF THE NUMBER OF ALLOWABLE PROGRAMS IN THE SYSTEM 
IS NOT EXCEEDED PRESENTLY 50). */ 



GEITPCB: ENTRY (FATHER, 3R0THER,BXT name,pri,sys proc, state, 

XNTERNAL_NAME, CYCLE, ERROR) ; 



DCL (FATHER, BROTHER, PRI, CYCLE, INTERNAL NAME) 
FIXED BINARY; 

DCL EXT NAME CHAR (8) ; 

DCL SYS”" PROC BIT (1) ; 

DCL STATE (*) FIXlD BINARY (31); 



/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PR IMITIVE_INTSHRUPT_DIS ENABLER (ALL_I NT, S A VEIN 'IS) ; 

/* GET INTERNAL NAME. */ 

DO INTERNAL NAME =1 TO PCB LIM 

WHILE - (PC3 REF ARRAYTINTERNAL NAME)i= NULL); 
END: 

IF (INTERNAL NAME > PC3 LIM) THEN DO; 

INTERNAL lAME = 0; IRROR = 205; GO TO R1 ; 

END; 

/* ALLOCATE AND INITIALIZE THE PCB. */ 
ALLOCATE PCB SET ( PCB PTR) ; 

PCB REF ARRAY (INTERNAL NAnE) =FCB PTR; 

PCB - FACE TABLjl PTR = NULL; 

QUANTUM /CHILD , LEFT SIBLING, PROCESSR - 0; 

RESOURCE VEC = »0'B; 

STAIUS= a!(LS US PD ; 

PAR ENT= FATHER ; 

RIGHT SI3LIHG=BRCTHE2; 

PKICRTT Y = PEI ; 

EXTERNAL NAME=EXT NAME; 

CYCLE TI^E= CYCLE : — 

RESOURCE VEC = 'OO'B; 

VALID SYS PROCESS = SYS PROC; 

DO 1=1 I O - 1 0 ; 

REGISTERS (I) =STATE (I) ; 

END ; 



HI; 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (ALL I NT , SAVEI NTS) ; 
RETURN; - _ _ 
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ENTRY POINT SPECIFICATION 



MODULE NAME: PCB STRUCTURES ENTRY NAME: REL PCB 



PARAMETERS 

INP UT OUTPUT TYP E CO NTE NTS 



Internal_ Integer 

Name 

Error Integer 



Internal name cf the process 
being destroyed. 

Error condition code. Values: 

a) 201 - Invalid process name. 

b) 202 - Inactive PCB number. 



ENTRY POINT DESCRIPTION 

Deallocation of a PCB and associated Page Table, and freeing 
of the internal name for future use is accomplished when 
this entry pcint is invoked. Entry is restricted from direct 
access by user processes. 



E NTRY POINT IMPLEMENTAT ION 



DEALLOCATION OF A PCB AND ASSOCIATED PAGE TABLE, AND 
FREEING Of TEE INTERNAL NAME FOR FUTURE USE IS 
ACCOMPLISHED WHEN THIS ENTRY POINT IS INVOKED. */ 

RELPCB: ENTRY (INTERN AL_NAME, ERROR) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PR IM IT1VE_IN TERR UP T_DI SEN ABLER (ALL_I NT, SA VEINTS) ; 



/* VERIFY PCB NUMBER AND ACCESS. */ 
IF INVALID (INTERNAL_NAME) THEN GO TO R2; 



/* DEALLOCATE THE PCB AND PAGE TAELE. */ 
IF (PCE PAGE TABLE PTR-«=N ULL) THEN DO; 

PAGE TABXE PTR=?CE PAGE TABLE PTR; 

FREE - PAGE TABLE; “ ~ 

END; 

PCB REF ARRAY (INTERNAL NAME) =NULL ; 

FEET PCE; - 



R 2 * 

CALL PRIMITIVE INTERRUPT ENABLER (ALL I NT , SA VEI NTS) ; 
/*** EEA3LE THE INTERRUPTS ***/ 

RETURN ; 
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ENTRY POINT SPECIFICATION 

MODULE NAME: £C3_S TR UCTU R ES ENTRY NAME: FI ND P INAME 

PARAMETERS 



INPUT OUTPUT 


TYPE 


CONTENTS 


PXname 


Char (8) 


Process external name. 


Plname 


Integer 


Process internal name. 


Error 


Integer 


Error' condition code. Values: 
a) 206 - Process not found. 


ENTRY POINT DESCRIPTION 


’ 



This entry point searches the list of active PCB's to find 
the process specified by external name and return the in- 
ternal name il found. 



Ji J l£I_£OI£T_IM£LEMENTATION 



THIS ENTRY POINT SEARCHES THE LIST OF ACTIVE PCB'S 
TO 1CCATZ THE PROCESS WITH EXTERNAL NAME (' PXNAME ') 

AND RETURNS ITS INTERNAL NAME ('PINAME'). IF NOT 
FOUND AN ERROR CONDITION IS RAISED. */ 

FTND_PI NAME: ENTRY (PXNAME , PI N AME , ERROR) ; 

DCL PXNAME CHAR (3) ; 

DCL PINAME FIXED BINARY; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRI Mill VE_IN TERR UPT_DIS ENABLER (ALL_INT, SA VEINTS) ; 

DO I = 1 TO PCB LIM; 

PCB PTR = PC'S REF ARRAY (I); 

IF 1 (EC3 PTR NULL) 6 (EXTERNAL NAME = PXNAME)) 
THEN DO; PINAME = I; GO TO"R3; END; 

END: 

ERROR = 206; 

PINAME = 0; 



R3: 



/*** ENABLE THE INTERRUPTS ***/ 

CALL ER I MITIVE_INTERR UP T_ENABLER (ALL_I NT ,SAVEI NTS) 



RETURN ; 
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ENTRY POINT SPECIFICATION 



MODULE NAME: PCB STRUCTU RES ENTRY NAME: PCBD ATA -GEN ERIC 



PAfl'KETEES 

iNPUl .OUTPUT TYPE CONT ENTS 



****<.*******common Parameters To Each Entry point***** 5 ****** 



PCB Numb 



Integer 



Process internal name. 



Put/Get Bit ( 1 ) Operation identifier. Values: 

a) SPUT - enter data in speci- 
fied field of the PCB. 

b) 3GET - return copy of 
data stored in specified 
PCB field. 



Field# 



Error 



Integer 



Integer 



PCB 

a) 



b) 



c 

d j 

e) 
f I 
Q) 

h; 

i i 

i\ 

1 

m) 

n) 

o) 

P 

r) 

sf 



field identifier. Values: 
330RMNR - Page l'anle refer- 
used to obtain address of a 
specified page. Put opera- 
tion invalid. 

3BEMVEC - Page table refer- 
ence used to get a copy of 
the page table. 

3CHILD - PCB Child field. 
3CYCLE - PCB Cycle Tine. 
3FSTAT - File Status. 
3FNCNTR - Fiie_Wri t<=> Cntr . 
3LFTSIB - Lef t_Sibiin c . 
MSGPTR - Message Pointer. 
3NK PGS - Number Pages. 
3PAT5ENT - Parent. 

3PE NR - Processor. 

3PRTRTY - Priority. 

SQUANTM - Quantum. 

3RESVEC - Resource Vector. 
3RGTS1B - Right_s idling, 
3STATE - Registers. 

3STATUS - Status. 
asYSPRO - Sys_Process. 
ax NAME - External Name. 



irror 



a 

b 

c 

d) 



201 

202 

203 

204 



condition codes. Values: 

- Invalid process name,. 

- Inactive'PCB nunber. 

- Invalid field number. 

- Invalid operation. 



KNTJY_POIN2_nESCRIPTION 

These entry points are invoked to enter or get a copy of 
data from a PCB. They all have at least four parameters in 
common; the first three which identify the PCS numner, put 
or get operation, and the PCB field, respectively. The Error 
parameter is the. last parameter in each entry point. 
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** * ** *** * * ** * **# ** **Generic Entry Points******************** 
DATCHAH Entry Point Specification. 

PARAMETERS 

JNPUT^ OUTPUT TYPE CON TENT S 

Charparm Charparm Char (8) Transfer of character data. 



DATFIXB Entry Point Specification. 



PAB A? ETE BS 

IN PUT OUTPU T TYPE CO NTEN TS 

Fixbparm Fixbparm Integer Transfer of integer data. 

fiPUT unauthorized in fields: 
3BRMVEC and 2NB PGS. a .GET not 
authorized in field 3ERMVEC if 
tne Page Table is unallocated. 



DATEIT2 


Entry Point Specification. 




PARAMETERS 

INPUT OUTPUT TYPE 


CONTENTS 




L^Lim 


Integer 


Array lower 


limit. 


U_Lim 


Integer 


Array upper 


limit. 


B2ary 


B2ary Bit (2) 

Array 


Transfer of bits data into or 
from an element of, portion of 
or the entire resource vector. 


DATAPYS 


Entry Point Specification. 




PARAMETERS 

INPUT OUTPUT TYPE 


CONTENTS 




L L i in 


Integer 


Array lower 


limit. 


U_Lin; 


Integer 


Array upper 


limit. 


SFBary 


SFEary Integer 

Array 


Transfer short integer array 
data into or from an element 
of, portion of, or the entire 



Page Table Vector. SGET is not 
authorized if the table is not 
allocated. 



DATAPYL Entry Point Specification. 



PARAMETERS 

INPUT OUTPUT TYPE 

LFBary LFEary Integer 

Array 



CONTENTS 



Transfer long integer array 
data into or from tne TCE 
field - Registers. 
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DATE1T1 Entry Point Specification 



PARAMETEBS 

INPUT OU TPUT TXPJL* CONTENTS 

Bitlparm J3it(1) Transfer a copy of data from 

PC3 field Sys_process only. 
Field initialized when process 
created. 



DAIPTR EDtry Point Specification. 



PARAMETEBS 

INP UT OUT PUT ^ T YPE CONTENTS 

Ptrparm Ptrparm Pointer . Transfer pointer data identi- 

fying the process's message 
buffer. 



bntry_1Ctni_description 

The entry point is selected by a preprocessor generic pro- 
cedure wnich determines the appropriate entry point by the 
number of arguements in the call and their data type. 
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/************************ ***** 
TH2 FOLLOWING ENTRY POINTS ARE INVOKED TO ENTER IN 
CR GET A COPY OF DATA FROM A PCB. THEY ALL HAVE AT 
LEAST FIVE PARAMETERS. THE FIRST IS THE PCB NUMBER 
THE SECOND SPECIFIES IF THE OPERATION IS A PUT OR A 
GET/ THE THIRD IDENTIFIES THE FIELD/ THE NEXT 
PARAMETERS ARE DATA PARAMETERS/ AND THE LAST 
PARAMETER IS AN ERROR PARAMETER. 



DCL 

DCL 
L CL 
DCL 



FIXED BINARY/ 



(PCB NUMB, FIELD#/ERROR) 

PUTGlT BIT (1) ; 

(L LIM/U LIM) FIXED BINARY; 

INDX FIXED BINARY; 

FIXED BINARY STATIC I NIT 
FIXED BINARY STATIC INIT 
FIXED BINARY STATIC INIT 
FIXED BINARY STATIC INIT 
FIXED BINARY STATIC INIT 
FIXED BINARY STATIC INIT 



CHAR L LIM 
CHAR” U — LI M 
EI'XB - L~ LIM 
FIXE - U — LI M 
BIT2 L LIM 
EIT 2 — U~ LIM 
RES 1EZ U 



ARYX L 

ARYS~U~ 

ARYI~L" 

ARYI“U“ 

EITI^L' 

EIT 1“ U" 



IlH 

LIM 

LIM 

LIM 

LIM 

LIM 



LIM FIXED BINARY STATIC INI 



FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 



PTR X XIM FIXED 



BINARY 
BINARY 
BINARY 
BINARY 
BINARY 
31 NARY 
BINARY 



STATIC 

STATIC 

STATIC 

STATIC 

STATIC 

STATIC 

STATIC 



INIT 

INIT 

INIT 

INIT 

INIT 

INIT 

INIT 



PTR_H_XIM FIXED BINARY STATIC INIT(1) 






it 



( 120 ) 



THIS ENTRY POINT IS INVOKED TO ENTER OR GET A COPY 
Cl CHARACTER TYPE DATA. V 



DATCHAR: ENTRY (PCB_NUMB # PUTGET, FIELD# /CHARPARM/ ERROR) ; 

DCL CHARPARM CHAR (8) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PHI MITIVE_IH TERR UP T_DIS ENABLER (A LL_I NT/SAVEINT5) ; 

/* VERIFY PCB NUMBER/ ACCESS ANE OPERATION. */ 
IF (INVALID (PCB NUMB)) THEN GO TO R4; 

IF ((FIELD# > CHAR U LIM) | (FIELD# < CHAR L LIM) ) THEN 
DO ; 

ERROR = 203; 

GO TO R4; 

END; 

/* THE INDEX INTO THE CASE STATEMENT IS COMPUTED TC 
REFLECT THE FIELD AND OPERATION DESIRED */ 

IHDX = 2 * FIELD# ; 

IF (PUTGET = d) GET) THEN INDX = IHDX-1; 

DO ACTION OF CASE(IHDX); 

XASE (1 )T CiURPARM = STATUS; ENDCASE; 

CASE 2 : STATUS = CHARPARM; ENDCASE; 

CASE (3): CHARPARM = EXTERNAL NAME; ENDCASE; 

CASE (4): EXTERNAL NAME = CIFAlfPARM; ENDCASE; 
END_CF 1 _CASE5; 

R4; 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (ALL I NT / SA VEI NTS). ; 
RETURN; 
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✓ ajt ajc*:********#*****##***#*.***## 

THIS ENTRY POINT IS USED TO ACCESS INTEGER 

(FIXED BINARY) TYPE DATA. */ 

DATFIXE: ENTRY (PCB^NU MB , PUTGET , FIELD#, FI XBPARM , ERROR) ; 

DCL FIXBPARM FIXED BINARY; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL £RIMITIVE_INTERRUPT_DI SEN ABLER (ALL_INT ,SAVEINTS) ; 

/* VERIFY PCB NUMEER, ACCESS AND OPERATION. */ 
IF (INVALID (PCB NUMB) ) THEN GO TO R5; 

IF ((FIELD# < TIXB L LIM) | (FIELD# > FIXB U LIN)) THEN 
DO; ERROR = 203; SO“TO R5; END; 



/* THE INDEX INTO THE CASE STATEMENT IS COMPUTED TC 
REFLECT THE FIELD .AND OPERATION DESIRED */ 

1'NDX = 2 * FIELD#; 

IF (FUTGET = ©GET) THEN INDX = INDX - 1; 



DO ACTION 
CASE ( i ; 
CASE 
CASE 
CASE 
CASE 
CASE 
CASE 
CASE 
CASE 
CASE 
CASE 
CASE 
CASE 
CASii 
CASE (15); 



ENDCASE 
CASE (16 
CASE (1 7 



OF CASE (INDX) ; 

FIXBPARM = PRIORITY; 

PRIORITY = FIXBPARM; 

FIXBPARM = QUANTUM; 

QUANTUM = FIXBPARM; 

FIXBPARM = PARENT; 

PARENT = FIXBPARM; 

FIXBPARM = CHILD; 

CHILD = FIXBPARM; 

PIX3PARM = LEFT SIBLING; 

: LEFT SIBLING =~FIXEPARM; 

: FIXBPARM = RIGHT SIBLING; 

: RIGHT SIBLING = FIXBPARM; 

: FIXBPARM = PROCESSR; 

PROCESSR = FIXBPARM; 

IF (PCB PAGE TABLE PTR = 
FIXBPARM =0; ” 

ELSE DO* 

PAGE TABLE PTR = PCB PAGE 
FIXBPARM = — NUMBER PACES; 
END; 



ENECASE; 
ENDCASE 
ENDCASE 
ENDCASE 
ENDCASE 
ENDCASE 
ENDCASE 
ENDCASE: 

ENDCASE; 
ENDCASE; 
ENDCASE; 
ENECASE; 
ENDCASE; 
ENECASE; 
NULL) THEN 



TABLE PTR 



ERROR = 204; ENDCASE; 

IF (PCB PAGE TABLE PTR = NULL) 
FIXBPARM = 0; ERROR = 204; 



THEN DO: 



END; 

ELSE DO ^ 

PAGE TABLE PTR = PCB PAGE TABLE PTR; 
IF (fFIXBP'ARM < 1) |” 

(FIXBPARM > NUMBER PAGES)) THEN 
ERROR = 204; 



ENDCASE ; 
CASE (16) ; 
CASE (1 9) : 
CASE (20) : 
CASE (21): 
CASE ( 22 ) : 
CASE (23 : 
CASE (24) : 
END CE CASES 



ELSE FIXBPARM = TABLE (FIXBPARM) 
END; 

ERROR = 204: ENDCASE; 

FIXBPARM = FILE STATUS; ENDCASE; 
FILE STATUS = FIXBPARM; ENDCASE; 
FIXBPARM = FILE SHARE WRITE CTA; 
FILE SHARE WRITE CTR = FIXBPARM; 
FIXBPARM = - CYCLE~ TIME; ENDCASE; 
CYCLE_TIME = FIXpPAR M ; ENDCASE; 

9 



ENECASE; 

ENDCASE; 



R 5 " 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (ALL I NT , SA VEI NTS) ; 
RETURN; “ t 
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/* **************************** 
THIS ENTRY POINT IS USED TO ACCESS EIT (2) ARRAY DATA 

V 

DATBIT2: ENTRY (PCB NUMB, PUT GET, FIELD#,! LIM,U LIM , B2 ARY , 

ERR"DR) ; 

DCL E2ARY (*) BIT (2) ; 



/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIMITIVE_IN1ERRUPT_DISENABLER (ALL_INT, SA VEINIS) ; 

/* VERIFY PCB NUMBER, ACCESS AND OPERATION. */ 
IF (INVALID (PCB NUMB)) THEN GO TO R6; 

IF ((FIELD# < BIT2_L LIM) | (FIELD# > BIT2_U LIM) ) THEN 
DO ; 

ERROR = 203; 

GC TC R6 ; 

END: 

IF ( (1 LIM < 1) | (U LIM > RES_VEC_U_LIM) ) THEN 

DO: 

ERROR = 204; 

GO TO R6; 

END; 

/* THE INDEX INTO THE CASE STATEMENT IS COMPUTED TC 
REFLECT THE FIELD AND OPERATION DESIRED */ 

I NDX = 2 * FIELD#; 

IF (PUTCZT = 5) GET) THEN INDX = INDX - 1; 



DO ACTION OF CASE (INDX) ; 

CASE (1)7 DO i = L LIM TO U LIM; 

B2ARY (I) = RESOURCE VEC (I) ; 

END; 

ENECASE: 

CASE (2) i DO 1 = 1 LIM TO U LIM: 

RESOURCE VEC (I) — = B2ARY (I) ; 
END; 

ENDCASE; 

E-ND CE CASES; 



R6: 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (ALL I NT , SAVEI NTS) ; 
RETURN; _ _ - 
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✓ ****#*#*#¥*#**#*** *********** 
THIS ENTRY POINT IS USED TO ACCESS FIXED BINARY (15) 
ARRAY DATA */ 

DATARYS: ENTRY (PCB N UHB , P UTGET , FIELD # , L LIM,U LIM,SFEARY, 

ERROR) ; " 

DCL SfBARY (*) FIXED BINARY; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL FRIHITIVE_INIERRUPT_DISENABLER (ALL_INT, SAVEINTS) ; 

/* VERIFY PCB NUMBER, ACCESS AND OPERATION. */ 
IF (INVALID (PCB NUMB)) THEN GO TO R7; 

IF ((FIELD# < AHYS_L_LIM) | (FIELD# > ARYS_U_LIM) ) THEN 
DO; 

ERROR = 203; 

GO TC R7 ; 

END; 



/* THE INDEX INTO THE CASE STATEMENT IS COMPUTED TC 
REFLECT THE FIELD AND OPERATION DESIRED */ 

INBX = 2 * FIELD# ; 

IF (PUIGET = cDGET) THEN INDX = INDX - 1; 

DO ACTION OF CASE (INDX) ; 

C&SE(1)T IF (PCB PAGE TABLE PTR = NULL) THEN 
ERROE = 2U4; 

ELSE DO: 

PAGE TABLE PTR = PCB PAGE TABLE PTR; 

IF (7L LIlT< 1) I ( U IIM >~ NUMB EE PAGES)) 
THEN ERROR = 204 ; ~ 

ELSE 

DO I = L LIM TO U LIM; 

SFBARY1I) = TABLE (J); 

END; 

END; 

ENICAS E * 

CASE (2): IF ( (L LIM -*= 1) | (U LIM < 1)) THEN DO; 

ERROR =204; 

RETURN; 

END; 

IF (PCb_PAGE TABLE FIR -.= NULL) THEN DO; 

PAGE TABLE PTR = PCB PAGE TABLE PTR; 

FREE - PAGE I ABLE; - - - 

END; 

NUMB PAGES = U LIM; 

ALLOCATE PAGE TABLE SET (PAGE TABLE PTR) ; 

PCB PAGE TABLE PTR = PAGE TAELE PTH ; 

DO I = 1 TO U IIM; 

TABLE (I) = SFBARY (I) ; 

END ; 

ENECASZ: 

END OF CASES; 

R7; “ ~ 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER ( ALL I NT , SAVEINTS) ; 
RETURN; 
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>****$***£***$*$.$******** * * * sjc * 

THIS ENTRY POINT IS USED TO ACCESS FIXED 3INAFY(31) 
ARRAY DATA. . */ 

DATARYL: ENT.RY ( FCE_NUME, PUTGET , FIELD# , LFB ARY , ERROR) ; 

DCL LFBARY (*) FIXED BINARY (31); 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIBITIVE - _INTERRUPT_DISENABLER ( A LL_INT, SAVEINTS) ; 

/* VERIFY PCB NUMBER# ACCESS AND OPERATION. */ 
IF (INVALID (PCB NUMB)) THEN GO TO R8 ; 

IF ( (FIELD# < AEYL_L_LIM) | (FIELD# > ARYL_U LIM) ) THEN 

RO ; 

ERROR = 204; 

GC TC B8 ; 

EN E ; 

/* THE INDEX INTO THE CASE STATEMENT IS COMPUTED TC 
REFLECT TEE FIELD AND OPERATION DESIRED */ 

INDX = 2 * FIELD#; 

IF (PUTGET = a) GET) THEN INDX = INDX -1 ; 



DO ACTION Or CASE (INDX) : 

CASE ( 1 ) T DO I = 1 TO 10: 

LFBARY (I) = REGISTERS (I) ; 

END; 

ENDCA5E ; 

CASE (2) : DO I = 1 TO 10; 

REGISTERS (I) = LFBARY (I) ; 

END; 

ENDCASE; 

IIND_CF_CASES ; 

R8: 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENaBLER(ALL INT , SAVEINTS) ; 
RETURN; _ _ _ 

$ $ $ $ 

THIS ENTRY POINT IS USED TO ACCESS EIT(1) DATA. 

DATE IT 1; E.NTRY (PCB^NUMB , PUTGET, FIELD #, BIT 1 PARM, ERROR) ; 

DCL EIT1PARM BIT (1) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL ERI KITIVE_INTSRRUFT_DIS E N ABLER (ALL_INT, SAVEINTS) ; 

/* VERIFY PCB NUMBER, ACCESS ANE OPERATION. */ 
IF (INVALID (PCE NUMB) ) THEN GO TO R9 ; 

IF ( (FIELD# < BIT1_L LlM) | (FIELD# > Bill U LIM)) THEN 
DO ; 

ERROR = 204; 

GO TO E9 ; 

END; 



/* THE INDEX INTO THE CASE STATEMENT IS COMPUTED TC 
REFLECT I HE FIELD AND OPERATION DESIRED */ 

INDX = 2 * FIELD#; 

IF (PUTGET = a> G E T ) THEN INDX = INDX - 1; 

DO ACTION OF CASE (INDX) ; 

CASE (1)7 BIT 1PARM = VALID SYS PROCESS; ENDCASE; 

CASE (2): ERROR = 204; ENDCASE; 

E N D_ 0 F_ C A S ES ; 

R9; 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT EN A BLER ( ALL I NT , SA V El NTS) ; 
RETURN; 
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* X 



/* *********************** ***** 
THIS ENTRY POINT IS USED TO ACCESS POINTER DATA. */ 

DATPTR: ENTRY(PCE_NUMB,PUTGET,FIELD#,PTRPARM,ERROR) ; 

DCL P1BPARM POINTER; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL f RIMITIVE_INTERRUPT_DIS ENABLER (ALL_INT, SAVEIN1S) j 

/* VERIFY PCB NUMBER, ACCESS ANE OPERATION. */ 
IF (INVALID (PCE NUMB) ) THEN GO TO RIO; 

IF ((FIELD# < PTR_L_LIM) | (FIELD# > PTR U_LIM) ) THEN 
DO ; 

ERROR = 203; 

GO TO RIO; 

END; 

/* THE INDEX INTO THE CASE STATEMENT IS COMPUTED TC 
REFLECT THE FIELD AND OPERATION DESIRED */ 

INDX = 2 * FIELD#; 

IF (PUT'GET = 3 GET) THEN INDX = INDX - 1; 

DO ACTION OF CASE (INDX) ; 

CASE ( I ) T PTRPABM = MESSAGE POINTER; ENDCASE; 

CASE (2): MESSAGE POINTER =“ PTRP ARM ; ENDCASE; 

END_OE_CASES; 

RIO: 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTESR UPT ENABLER (ALL I NT , SAVEI NTS) ; 
RETURN; 



LOCAL PROCEDURE 



/ * * * * * * * * * * * * * ****** ** *** * **** 
INVALID CHECKS THE PCB# PASSES TO INSURE THAT THE 
PROCESS CONTROL BLOCK IS CURRENTLY ACTIVE AND ALSO 
SETS THE POINTER TO THE PROPER PCB FOR DATA ACCESS. 

DCL INVALID ENTRY (FIXED BINARY) RETURNS (BIT ( 1) ) ; 

INVALID: PROC (PCE#) RETURNS (BIT ( 1) ) ; 

DCL PCB# FIXED BINARY; 

IF ((PCB# = 0) & (PUIGET = 3GET) ) THEN 

PCB# = CURRENT PROCESS (PROCESSOR) ; 

IF ((PCS# < 1) | (PCB# >~50) ) THEN DO; 

ERROR = 201 ; 

RETURN (TRUE) ; 

END : 

PCE PTE = PCB REF ARRAY (PCB#) ; 

IF 1PCB PTE = — NULL) THEN DO; 

EHROlt = 202 ; 

RETURN (TRUE) ; 

END ; 

RETURN (FALSE) ; 

END INVALID; 

END PCBSTR ; 
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MODULE SPECIFICATION 



NAME: RCE H AND LER ' TYPE: PRIMITIVE 

PARAMETERS 

INPUT OUTPUT TYPE CONTENTS 

Parameters Specified With The Entry Point Specification. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PA R A M £1 E ES_ PU RPOS E 



Interrupt Interrupt Number, 
Disabler Save Vector 



Interrupt Interrupt Number, 
enabler Save Vector 



This module is invoked to dis- 
able all interrupts while 
ECB Handler is in execution. 
The status of the interrupts 
is saved in the Save Vector. 

This module is invoked tc re- 
enable all interrupts which 
were disabled by tne current 
module in execution. 



EXTERNAL CALLS MADE BY OTHER MODULES 

NAME PU RPO SE ■ 

Invoked by other primitives and only system processes. 



DATA STRUCTURES USED 

NAME FIELD TYPE .PURPOSE/ VALUES. 



Saveint Bit(1) Array used to save the status 

Array of the interrupts; arguement 

in call to Disabler and 
Enabler . 



Resource 

Control_ 

Block 



Structure This structure has been de- 
signed to store administrative 
and operational data used in 
the managing cf system resour- 
ces; u.e., Semaphores, Files, 
Devices, and data storage con- 
tainers (I'CT's). 



Assigned 


Bit (1) 


Determines if the resource 
Control Block is assigned to 
a resource. 


Creator 


Integer 


Process that created the RCB. 


Owner 


Integer 


Process that has been assigned 
control of the resource. 


Ex t^Name 


Char (8) 


External name of the resource. 


Device 

Status 


Bit (1) 


Device access state. Values: 

a) tf#GO - the dev ice is active 

b) iJIIHOLD - access to files 
and PCT for this device is 
not authorized. 

c) Not applicable for Sema- 
phore RCB' s . 



164 



Device_ 

Iname 

Shared 

Private 

Cntr Size 



PCT_Name 

Open_File 



File_Type 



Lef t_Que 



Right_Que 



Integer 



Integer 



Integer 



Char (8) 
Integer 



Integer 



Device internal name. 



Resource access classification 
Values: a) ##SHRD or fc#PEIV - 
shared or private resource. 

a) Semaphore - Buffer, Job_q, 
Print Jobs, etc. counter. 

b) File - file length. 

c) Device - not used. 

d) PCT - file space available. 

PCT external name. 

Applicable for files. Values: 

a) NO VAIL - file unavailable 

b) ##AV AIL - file available 
cj # #R SAD - file opened for 

reading only 

d) ## WRITE - file opened for 
writing only. 

Not applicable for semaphore 
or device resources. Values: 



a) 


##TEMPF - 


tempora ry 


file or 


type file 


allowed on 


PCT 


b) 


##PERMF - 


permanent 


file or 


type file 


allowed cn 


PCT 


c) 


##TORPF - 


both file 


types 


allowed on 


i PCT. 



Pointer Qualifies queued messages. 

a) Semaphore - outstanding 
process request messages 

b) File - current file open 
requests satisfied. 

c) Device - current device 
access reguests satisfied 

d) PCT - not used. 

Pointer Qualifies queued messaaes. 

a) Semaphore - outstanding 
process release messaqes 

b) File - outstanding file 
open requests 

c) Device - outstanding device 
access reguests 

d) PCT - outstanding file 
creation requests. 
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L_R_Queue 



Based 



From Integer 



To Integer 



Priority Integer 
File_Data Integer 



fclsg_Ptr Pointer 



Q_Top Pointer 

Q_£ottora Pointer 



This structure is used t 
data required for the ma 
Kent of the resources an 
matching of messages. 

Internal name cf the pro 
doing the Request or Rel 
saved in the Left/Sight 
for Semaphore ECB's, res 
tively. Internal name of 
process accessing or reg 
ing access to a file or 
resource; or file creati 

Internal’ name cf the pro 
expected to do a Release 
Request, saved in a Serna 
Left/Right queue. 

Also used to save the Se 
phore to be used in an a 
to a message. 

Precedence of the proces 

Not applicable for Semap 
or Device RCe's. Values: 

a) Semaphores - not appl 

b) Devices - net applica 

c) File Left Que - # # R EA 
##WRITE (file opened 
read or write for a p 
identified in the FRO 
Field) 

d) File Right que - ##KE 
##WRIT£« STffiEADA or # 
(outstanding read/wri 
open request sacruic 
#S£EADS or ## WRITS (r 
write opened request 
ficed) , or tfcWKlTH (o 
standing write-open r 
for a non- owned share 

e) PCT Bight_Que - dummy 
internal name for out 
ing file creation reg 

A) Semaphores - gualifie 
message buffer of a proc 
doing a Request or a 
orary message buffer 
outstanding Releases 
b) Mot used in the other 
RCB queues. 

Backward queue link. 

Forward queue link. 



c save 
nage- 
d the 



cess 
ease 
gueue 
pec- 
the 
uest- 
device 
on . 



cess 

or 

phore 



ma- 

nswer 



hore 
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E or 
on a 
rocess 
E 



AD or 
» WRITA 
te 



€d) i , 
ea a/ 
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ut- 

e guest 
a file 
file 
stana- 
uests. 



s the 
ess 
temp- 
for 
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MODULE DESCRIPTION 
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EN T ftY P OINT IMPLEMEN TAT ION 



^INCLUDE NAMCHGR; /***** RCB HANDLER *****/ 

♦ ♦’♦’fr*#*****#########*******# 

THIS PRIMITIVE HAS BEEN IMPLEMENTED TO CENTEBALIZE THE 
LOCATION Cf RESOURCE DATA AMD TO HIDE DATA STORAGE 
METHODS. IT PROVIDES THE INTERFACE TO PROCESSES AND 
PRIMITIVES REQUIRING SUCH SERVICES AS CREATING RESOURCE 
CONTROL BLOCKS: DESTROYING RCBS; ENTERING CR ACCESSING 
DATA: MANIPULATING QUEUE ENTRIES USED TO STORE DATA 

CONCERNING AVAILIBILIT I, ACCESS, AUTHORIZATION, ALLOCATION 
AND DE AILOCATION OF THE RESOURCES; AND MATCHING OF 
INTERPROCESS COMMUNICATION MESSAGES. */ 

PRIMITIVE_RCE_HANDLER: PROC OPTIONS (MAIN) ; 



^INCLUDE GEN EEC; 
^INCLUDE CSDCL; 
^INCLUDE ECECCL; 
^INCLUDE CASE STM ; 



/*** RESOURCE CONTROL STRUCTURE ***/ 
DCL 1 RESOURCE. CONTROL BLOCK (120) STATIC, 

2 ASSIGNED 3ITT 1 ) INIT((120) (1) ' 0 • B) 

2 CREATOR FIXED BINARY, 

2 OWNER FIXED BINARY, 

2 LEFT , QUB POINTER, 

2 RIGHT (DUE POINTER, 

2 EXT NTT ME CHAR (8) , 

2 DEVICE STATUS BIT(1), 

2 D E V 1 CE“IN AM S FIXED BINARY, 

2 SHARED PRIVATE FIXED BINARY, 

2 CNTK SIZE FIXED BINARY, 

2 PCT UAMJS CHAR (8) , 

2 OPEP FILE FIXED BINARY, 

2 FILE~TYPE FIXED BINARY; 

DCL 1 L h QOEUl BASED (LRQ PTR) , 

"Q — TCP POINTER, 



FROM FIX] 
TO FIXED 



D BINARY, 
BINARY, 



PRECEDENCE FIXED BINARY, 
EILE DATA FIXED BINARY, 
MSG PTR POINTER, 

Q BOTTOM POINTER; 



DCL (ADDBESSOR , ADDRESSEE, DATA, RINA ME) FIXED BINARY; 

DCL £ ERCR FIXED BINARY; 

DCL (REQ EEL, Q #) 3IT(1); 

DCL (MSGPTR, START, TEMP) POINTER; 

/*** LOCAL SUBROUTINE ENTRY POINTS ***/ 

DCL VALID ENTRY (FIXED BINARY) RETURNS (BIT(1)), 

RIMOVEQ ENTRY (FIXED BINARY , BIT (1) , POINTER, POINTER) , 
INSERT ENTRY (FIXED 131 NARY, BIT ( t) , POINTER, 

FIXED BINARY) , 

LOOKUP ENTRY (POINTER, FIXED BINARY, FIXED BINARY), 
QUEPCSIT ENTRY (FIXED BINARY, POINT Eh) ; 
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ENTRY POINT SPECIFICATION 



MODULE NAME: RCB 

PARAMETERS 
INPUT OUTPUT 


HANDLER 

TYPE 


ENTRY NAME: CREATE RCE 

CONTENTS 


Type 

1 




Integer 


Specifies resource type to be 
created. Values are: SDEV1CE, 
#FILE, #SEiiF0K, or #PCT. 


RXNa*ne 




Char (8) 


Resource external name. 


Owner 




Integer 


Owner's internal name. 


Size 




Integer 


File length or number of re- 
source units. 


S_or__P 




Integer 


Shared or private resource. 


Mounted 




Char (8) 


/pCT external name - for File 
and Device resources only. 


Dev_ Name 




Integer 


Device internal name - for PCT 
and File resources only. 


Open 




Integer 


File status - ##AVAIL or 
##N0AVL . 


T_File 




Integer 


a) Files - # #TE MPF or # # PERKF 

b) PCT 1 s - tf #T E MPF # ##PEB3F or 
# #T0RPF . 




RIName 


Integer 


Resource internal name. 




Error 


Integer 


Error condition code. Values: 

a) 101 - invalid resource type 

b) 102 - RCB unavailable 



103 - invalid resource name 

104 - unallocated resource. 



ENTEY_POINT_BESCRIPTIOH 

This entry pcint is used to create an RCB of the type 
specified and to return the internal name. Only system 
processes may invoke this entry point. 
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ENTRY POINT IMPLEMEN TATI ON 



/* ****** ****** *********** ***** 
THIS ENTRY POINT TO RCB HANDLER IS UTILIZED TO CHEAT! AN 
RC3 OF IKE TYPE SPECIFIED; TO ENTER THE DATA IN THE 
VARIOUS ECE FIELDS: TO RETURN THE RCB INTERNAL NAME, 
"RENAME" ; AND TO RETURN AN ERROR CODE, "ERROR". */ 

CREATE RCB: ENTRY (TYPE ,RXNAME, CWNR, SIZE, S OR P, MOUNTED, 

DEV_NAME,0FEN,T_FILE,RIUAM"E,ERR0R) ; 

DCL (TYPE, OWNR,SIZE, DEV NAME , OPEN , CRE ATR , LIMIT , I) 

FIXED BINARY; 

DCL (RXNAME, MOUNTED) CHAR (8); 

DCL (S OR P,T FILE) FIXED BINARY; 

DCL SYRENS BIT (1) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PR I Kill VE^IN TEREUPT_DIS ENABLER ( ALL_I NT , S A VEIN IS ) ; 

CRE A TE= CURRENT PROCESS (SYS PROCESSOR); 

IF =( (TYPE < 1)“[ (TYPE > 47) THEN DO; 

ERROR = 101; GO TO RETURN 1 ; END; 



D 0_ A C T 1 0 N_0 F CASE (TYPE) ; 

CASE ( 1) : 1=1; LIMIT=SEM_LIMIT; ENDCASE; 

CASE (2) : I=DEV_L_LIMIT; LIMIT=DE V_U_LIKIT ; ENDCASE; 

CASE (3) : I=FILE_L_LIMIT ; LIMIT = FILE_U_IIHIT ; ENDCASE; 

CASE (4 ) : 1= PCT_L LIMIT ; LIMIT= PCT_U_LIMIT; ENDCASE; 
END Gr CASES; 



DO 'WHILE 
IF (I > L 

ASSIGNED (I) =' TRUE; 

CREATOR (I) = CREATE; 

OWNER (I) = CWNR; 

LEFT QUE (I‘ 

ext "Name (i 

DEVICE I NAME (I) = DEV NAME; 

DEVICE” STATUS (I) = £irGO; 
SHARED” PRIVATE (I) = S_OR P; 

CNIR SiZE (I) = SIZE- 



( (ASSIGNED (I) ) & II <= LIMIT) 

I MIT) THEN DO; ERROR=102; GO 



) , RIGHT QUE(I) = NULL; 

) = RXNAH” 



) ; 1 = 1+1 ; FND; 

TO RETURN 1; END; 




RINAME = I. 
GO TC RETURN 1; 
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ENTRY POINT SPECIFICATION 



NODULE NANI: RCB_HANDLER 

PARAMETERS 

INPUT OUTPUT TYPE 

Addressor Integer 

Addressee Addressee Integer 



Semaphore Integer 

H_ftr Pointer 

Q# Bit ( 1 ) 

Match Bit (1) 

Error Integer 



ENTRY NAME: RCB_MATCU 



Internal name cf the process 
which did a Reguest/Release. 

To which process the Request 
or Release was addressed 

Internal name of the message 
semaphore used in the Reguest 
or Release. 

Qualifies the Reguestor's mes- 
sage buffer or the temporary 
buffer from an unmatched 
Release . 

Left or Right gueue identifier 
Values: #LEFT for an incoming 
Reguest or #RIGHT for an in- 
coming Release. 

Boolean which identifies to 
the invoher if a match has 
been found. 

Error condition code. Values: 

a) 103 - invalid resource name 

b) 104 - unallocated resource. 



CONTENTS 



EXTERNAL CALLS MADE BY OTHER MODULES 

NAMJ . PURPOSE 

Allocator To determine if there is an outstanding 

Release or Request which matches a cur- 
rent Reguest or Release, respectively. 



EN TRY POINT DESCR IPTION 

This entry pcint has been implemented to facilitate the 
allocation of resources and matching of interprocess 
communication messages. In this implementation, the actual 
techniques used to perform the services indicated above and 
the nature of the queues are hidden from the processes; 
hense modification has been simplified. 
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ENTR Y P OINT IMPLEMENTATION 



/****************** ****** ***** 
THIS ENTRY POINT TO RCB HANDLER IS UTILIZED BY THE MESSAGE 
ALLOC A I CR TO DETERMINE IF A REQUEST/RELEASE MESSAGE 
MATCHES A QUEUED-UP RELE AS S/REQUEST MESSAGE. "ADDRESSOR", 
"ADDRESSEE", "SEMAPHORE", AND "Q#" MUST BE SPECIFIED 

BY THE CALLING PROCEDURE. IF A MATCH IS NOT FOUND "MATCH" 
IS SET TO FALSE. IF A MATCH IS FOUND "MATCH" IS SET TO 
TRUE AND "M PTR" (MESSAGE POINTER) AND "ADDRESSEE" ARE 
SET TO THE VlLUES STORED IN THE QUEUE. */ 



PRIMITIVE RCB MATCH: ENTRY (ADDRESSOR, ADDRESSEE, SEMAPHORE, 

M_PTR,QS, MATCH, ERROR) ; 

DCL SEMAPHORE FIXED BINARY, 

M PTE POINTER, • • 

MITCH BIT ( 1) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PEIMITIV 3_INTERR UPT_DI SEN ABLER (ALL_I NT,SAVEINTS) ; 



MATCH = F A 7 ^ F • 

IF (VALID (SEMAPHORE) ) THEN DO; 

IF ]C# =#LLFT) THEN START = RIGHT QUE (SEMAPHORE) ; 

ELSE START = LEFT QUE (SEMAPHORE) : 

IF (START = NULL) THEN GO TO RETURN2 ; 

TEMP = START: 

IF (ADDRESSEE = 0) THEN 

DO WHILE ( -> ( (TEMP— > TO = 0) | (TEMP->TO = ADDRESS CR) ) ) 
IF (TEMP->Q BOTTOM = START) THEN GO TO RETURN2; 
ELSE T-EMT = TEMP— >Q BOTTOM; 

END; 

ELSE 



DO WHILE (-«(( (TEMP->TO = ADDRESSOR) | (TEMP-> 
6 (TEHP->FROM = ADDRESSEE))); 

IF (TEMP- > Q BOTTOM = START) THEN GO TO 
ELSE TEMP = TEMP -> Q BOTTOM; 



TO = 0) ) 
RETURN2 ; 



END; 

ADDR ESSE E = T£MP->FRCM; 

M PTR = TEMP— > MSG PTR; 

MITCH = TRUE ; 

CALL EEMCVEQ (SEMAPHORE, (iQi) , TEMP, START) ; 
FREE TEMP -> L R QUEUE; 

END; 



GO TO REIURN2; 
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ENTRY POINT SPECIFICATION 



NODULE NAME: RC£_HANDLER 



ENTRY NAME: RCBPUTQ 



PARAMETERS 

I NPU T OUTPUT TYPE , CO NTENT S 



RINan.e 

Reg^Rel 

Addressor 

Addressee 

Pri 

MsgPtr 

Data 



Integer 
Bit (1 ) 

Integer 

Integer 

Integer 

Pointer 

Integer 



Resource internal name. 

Queue identifier. Values are: 
#LEFT or SRIGHT; #0 S or SUSER 
for the ready active gueue: 
#REDYA. 

Internal name cf the process 
being inserted in the gueue. 

Internal name of the process 
to whicn the message is ad- 
dressed; or the semaphore to 
be used in reply to a file 
creation task. 

Priority of the process being 
queued. 

Qualifies the process's mes- 
sage buffer. 

a) Dummy file internal name 
for outstanding file crea- 
tion requests. 

b) ##RE AD or £#i-JRITE for file 
open requests which were 
allocated (file left_gue) 

c) ##READ or ## WRITE for un- 
allocated open requests; 
##READA or ##WRITA for un- 
allocated, sacrificed file 
open requests; ##Rr,AD£ or 
##WRITS for allocated, but 
sacrificed, file open re- 
quests; and # # W R I T R fcr an 
outstanding file open for 
write access to non-ownea, 
shared file. 



F,N TRY _ POINT DE SCR I P T 1 £ N 

This -entry point is invoked to enter a process by priority 
into a specified queue and to save specific data. 
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ENT RY POINT IMPLEMENTATION 



THIS ENTRY FOINT TO RCE HANDLER IS USED TO ENTER A 
PROCESS ("ADDRESSOR") BY PRIORITY ("PRI") IN A SPECIEIED 
QUEUE ("EEQ REL") FOR THE RESOURCE SPECIFIED BY "RINAME" 
"ADDRESSOR'C "ADDRESSEE", "PRI", "MSGPTR", AND "DATA" AR 
STORED IN IHE APPROPRIATE QUEUE ELEMENT FIELDS. */ 

RCEPUTQ : ENTRY (RINAME, REQ REL, ADDRESSOR, ADDRESSEE, PRI, 

•MSGPTR, DATA7ERROR) ; 

DCL PRI FIXED BINARY; 

/*** DISENAELE ALL INTERRUPTS ***/ 

CALL PRI Mill VE_INTERRUPT_DIS ENABLER (ALL_I NT,SAVEIN1S) ; 

IF (VALID (RINAME) ) THEN DO; 

ALLOCATE L R QUEUE SET (LRQ PTE) ; 

1RQ_PTR -> — FR Oil = ADDRESS ORJ 
IRQ FIR “> TO = ADDRESSEE; 

L R Q~ P 1 R -> PRECEDENCE = PRI; 

L R Q~ F 1 R -> FILE DATA = DATA; 

LRQ PTR -> MSG PTR = MSGPTR; 

CALI INSERT (RIIiAME, REQ REL, LRQ PTR, PRI); 

END; 

GO 10 RETURN 3; 
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• rxq 



ENTRY POINT SPECIFICATION 



MODULE NAME: RC3 HANDLE R ENTRY NAME: ££J3GET£) 

PARAMETEBS 



IHPUI OUTPUT 


TYPE 


CONTENTS 


RIName 


integer 


Resource internal name. 


Beg_Bel 


Bit (1) 


Queue identifier. Values are: 
fLEFT, s RIGHT/ #OS, and SUSER. 


Addressor 


Integer 


Internal name of process to be 
removed from the queue. 


Addressee 


Integer 


Data stored in the TO Field 
of the queue. 


MsgPtr 


Pointer 


Process message buffer pointer 


Data 


Integer 


Data stored in the File Data 
Field of the queue. 


Found 


Bit (1) 


Indicates if the specified 
process was found. 


Q_Empt y 


Bit (1) 


Queue status after removal. 


Error Integer 

ENTRY POINT DESCRIPTION 


Error condition code. Values: 

a) 103 - invalid resource name 

b) 104 - unallocated resource. 



This entry is invoked to remove a process and associated 
data frcm the specified resource queue. The data is returned 
to the invoker and the queue element is deallocated. 
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ENTRY PO INT IMPLEMENTATION 



THIS ENTRY POINT TO RCB HANDLER IS USED TO REMOVE A 
PROCESS (" ADDRESSOR") FROM THE SPECIFIED QUEUE ("REQ REL") 
ASSOCIATED WITH THE RESOURCE SPECIFIED BY "RINAME". THE 
DATA STORED IN THE FIELDS OF THE QUEUE ELEMENT IS RETURNED 
IN "MSGPTR" AND "DATA" IF THE PROPER QUEUE ELEMENT IF 
FOUND. "FOUND" IS SET TO TRUE OR FALSE INDICATING THAT 
THAI THE ELEMENT HAS OR HAS NOT BEEN REMOVED. "Q EMPTY" 
INDICATES THE STATUS OF THE QUE AFTER THE ELEMENT HAS 
BEEN REMOVED. */ 

RCBGE1Q: ENTRY (RINAME, REQ REL. ADDRESSOR, ADDRESSEE, MSGPTR, 

DATA, FOUNDTQ^EMPTY, ERROR) ; 

' DCL (FOUND, Q_EMPTY) -BIT (1) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PR I MITIV.E_IN TERR UPT_DIS ENABLER (ALL_I NT, SA VEINIS) ; 

FCUND, 0 EMPTY = FALSE; 

IF (VALID (RINAME) ) THEN DO; 

IF (REQ RiiL = SLEPT) THEN START = LEFT QUE (RINAME) ; 

ELSE SI'S RT = RIGHT QUE (RINAME); 

IF (START = NULL) THEN GO TO RETURN4 ; 

TEMP = START -> Q BOTTOM; 

DO WHILE ((TEMP -= START) S (TEMP-> FROM -»= ADDRESSOR) ) ; 
TEMP =? TEMP -> Q BOTTOM; 

END; 

IF (TEMP -> FROM -.= ADDRESSOR) THEN GO TO RETURN4 ; 
ADDRESSEE = TEMP -> TO; 

MSGF1E = TEMP ~> MSG PTR ; 

DATA = TEMP -> FILE DATA ; 

CALI REMOVEQ (RINAME7REQ REL, TEMP, START) ; 

IF (START = NULL) THEN U EMPTY = TRUE; 

FREE IEMP -> L R QUEUE; ” 

FOUND - TRUE; 

END; 

GO TO RETURN 4 ; 
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ENTRY POINT SPECIFICATION 



MODULE 


NAME: RCB 


HANDLER 


ENTRY NAME: RCB TRANSFERS 


PARAMETERS 
INPUT OUTPUT 


TYPE 


CONTENTS 


RIName 




Integer 


Resource internal name. 


Q# 




Bit (1) 


Queue identifier. Values are: 
#LEFT or #RIGHT 


PIName 




Integer 


Process internal name which is 
being transferred 




Inq Fin 
Sta^E 


Bit (1) 


Status ofQ# after transfer. 




Newq Bit(1) 

Starf_Stat 


Status of opposite queue be- 
fore transfer. 




Xfered 


Bit (1) 


Status of transfer. 




Error 


Integer 


Error condition code. Values: 
a) 103 - invalid resource name 



bj 104 - unallocated resource. 
E NTRY POINT INS CRIPTI ON 



This entry point is invoked to transfer a process 
queue of an EC3 to the opposite queue of that BCD 
return the status of both" queues after and before 
respectively. 



from one 
a nd to 
transfer. 
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ENT RY POINT IMPLEMEN TAT ION 



THIS ENTRY POINT TO RCB HANDLER IS USED TO TRANSEER A 
PROCESS ("PINAHE") FROM ONE CUE ("0#") OF AN RCB 
("RINAMI’h TO THE OTHER QUEUE. "XFERED" INDICATES THAT 
THE OPERA tl ON HAS/HAS NOT BEEN PERFORMED. "INQ FIN STAT" 
INDICATES IRE STATUS OF »Q#» AFTER THE TRANSFER. ” 

"NEWQ START STAT" INDICATES THE STATUS OF THE QUEUE 
OPPOSITE "Qff" BEFORE THE TRANSFER. */ 

RCB TRANSFERQ: ENTRY (RINAME, Q#, PINAME , INQ FIN STAT, 

NEKQ_START_STAT, XFERED, EEROS) ; ~ 

nn ptnaMP FTYyn rtmjpy* 

DCL (INQ FIN STAT, NEWQ START STAT, XFERED , NEWQ) BIT (1) ; 
DCL (SIAlII ,3xART2) POINTER; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRI MITIVE_INTERRUPT^DIS ENABLER ( ALL_I NT, SA VEIN IS) ; 

XFERED = FALSE; 

I? (VALID (RINAME) ) THEN DO; 

IF (Q# = frLEFT) THEN DO; 

ST ART 1 , TEMP = LEFT QUE (RINAME) ; 

START2 = RIGHT QUB7RI NAME) ; 

END; 

ELSE DO; 

ST ART 1 , TEMP = RIGHT QUE (RINAME) ; 

STARI2 = LEFT QUE (RINAME); 

END; 

I? ( STARI2 = NULL) THEN NEWQ START STAT = ##CLOSE; 

ELSE NEWQ START STAT = ##OPEN; ~ 

CALL L00KUP7TEMP,IINAME, IPOS) ; 

IF (IPOS = 0) THEN GO TO RETURNS; 

CALL REMOVEQ (RINAME, Q#, TEMP, START1 ) ; 

IF ( SI ART 1 = NULL) THEN INQ_FIN STAT = *#CLOSE; 

ELSE I N Q_ FI N STAT = ##OPEN; 

NEWQ — -i Q if ’ 

PRI = TEMP -> PRECEDENCE; 

CALL INSERT (RINAME, NEWQ, TEMP, PRI) ; 

XFERED = TRUE; 

END; 

GO TC RE1URN5; 
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ENTRY POINT SPECIFICATION 



MODULE 


NAME.- R£B 


HANDLE? 


ENTRY NAME: ECB FIND 


PARAMETERS 
INPUT OUTPUT 


TYPE 


CONTENTS 


RC3 




Integer 


Resource internal name. 


Q# 




Bit (1) 


Queue identifier. Values are: 

Slept or bright. 


Findop 




Integer 


Operation identifier. Values: 
tfFNDOP 1 , 1FFNDOP2, #FND0P3, 
#FND0P4, and #FND0P5. 


Posit 


Posit 


Integer 


Position in queue to be sam- 
pled or in which the process 
was found. 


PINam 


PINam 


Integer 


Internal name of process to 
be found or which was found at 
the specified position. 


Datparm 


Datparm 


Integer 


Data found or to be entered. 




Pri 


Integer 


Priority of the process in the 
queue. 




Error 


Integer 


Error condition code. Values: 

a) 103 - invalid resource name 

b) 104 - unallocated resource 

c) 108 - invalid operation. 



ENTRY POINT DESCRIPT ION 

This entry point provides such services as searching a queue 
for a process and returning position and data, sampling a 
specified position iD a queue, and raodifyinq data in a queue 
element. 
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ENT RY POIN T IMPLEMENTATION 



/************************ ***** 
THIS ENTRY POINT TO RCB HANDLER IS USED TO DETERMINE THE 
QUEUE { " #Q ") POSITION ("POSIT") OF A PROCESS ("PINAM") 

AND ENTER CR GET A COPY OF DATA. THE "PINAM". ‘POSIT", OR 
BOTH KAY BE SPECIFIED TO SELECT A SPECIFIC PROCESS, ANY 
PROCESS AX POSITION ("POSIT") OR A SPECIFIC PROCESS AT 
A SPECIEIED POSITION. */ 

RCB FINE: ENTRY ( RCB , Q# , FI NDOP, POSIT , PIN AM , DATPARM , PRI , 

ERROR) ; 

DCL (RCB, FINDOP,POSIT,PINAM, DATPARM, IPOS) FIXED BINARY; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRI KITIVE_IN TERR UPT_DIS ENABLER (ALL_I NT, SA.VEI NIS) ; 

IF ( V ALIE (RCB) ) THEN DO; 

IF ( (FI NDOP < 1) | (FIN DOP > 5)) THEN DO; 

ERROR = 108; 

GO TO RETURN 6; 

END ; 

IF (Q# = #LEFT) THEN START = LEFT QUE (RCB) ; 

ELSE START - RIGHT QUE (RCB) ; 

IP (START = NULL ) ThEN DO; 

DAIPARK, POSIT = 0; 

GO TO EETURN6; 

END; 

IPOS = PCSIT * 

DO_ACTION_Of’cASE (FINDOP) ; 

CASE ( 1 ) : /* FIND THE PROCESS SPECIFIED BY PINAM AND 

RETURN THE POSITION AND FILE DATA */ 

CALI LOOKUP (START, PINAH , IPOS) ; 

IF (IPOS - 0) THEN DATPARM, PRI = 0; 

ELSE DO; DATPARM = START -> FILE DATA; 

PRI = START -> PRECEDENCE; END; 

POSIT = IPOS; 

ENECASE; 

CASZ(2): /* FIND THE PROCESS SPECIFIED BY PINAM AND 
ENTER THE DATA IN DATPARM, RETURN THE 
POSITION IN THE QUEUE */ 

CALL LOOKUP (START, PI NAM, IPOS) ; 

IF (IPOS -.= 0) THEN START -> FILE DATA = DATPARM; 
POSIT = IPOS; 

ENECASE; 
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CASE (3); /* FIND THE SPECIFIED PROC AT THE SPECIFIED 
POSITION AND RETURN FILE DATA . */ 

CALI QUEPOSIT (IPOS, START) ; 

IF ((IPOS = 0) | (PI NAM ->= START -> FROM)) THEN DO; 

• DATPARM, PHI =0; 

ERROR = 108; 

END: 

ELSE DO; DATPARM = START -> FILE DATA; 

PRI = START -> PRECEDENCE; END; 

ENDCASE; 

CASE (4): /* FIND THE SPECIFIED PROCESS AT THE 

SPECIFIED POSITION AND ENTER THE DATA 
IN DATPARM */ 

CALL QUEPOSIT (IPOS , START) ; 

IF ((IPOS =0) | (PINAM -«= START -> FROM)) THEN 

ERROR =108; 

ELSE 

START -> FILE DATA = DATPARM; 

ENECASF; 

CASE (5): /* FIND AND RETURN THE PROCESS NAME AND DATA . 

AT THE SPECIFIED POSITION */ 

CALI QUEPOSIT (IPOS, START) ; 

IF (IPOS = 0) THEN PINAM, DATPARM, PRI = 0; 

ELSE DO; 

PINAM = START -> FROM; 

DATPARM = START -> FILE DATA; 

PRI = START -> PRECEDENCE; 

END; 

ENICASE; 

END CE CASES; 

END7 ~ 

GO TC RETURN6 ; 
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ENTRY POINT SPECIFICATION 



MOL’ULE NAME: RCB HANDLE R ENTRY NAME: FIND_INAME 



PARAMETERS 




INPUT 


OUTPUT. 


TYPE 


Type 




Integer 


RXName 




Char (8) 




RIName 


Integer 




Error 


Integer 



CONTENTS 

Resource type identifier. 
Values: #PCT, #DEVICE, # FILE 
and tSKKFOR. 

Resource external name. 

Resource internal name. 

Error condition code. Values: 

a) 101 - invalid resource type 

b) 111 - unidentified resource 
external name. 



ENTRY PO INT DESCRIPTION p 

This entry point finds and returns a resource internal name 
when provided a valid external name for a resource for which 
an RCB has been created. 



ENTRY £01 jjj IMP LEM ENTATION 



THIS ENTRY POINT TO RC5 HANDLER RETURNS THE INTERNAL NAME 
OF A RESOURCE ("RINAME") WHEN GIVEN THE EXTERNAL NAME, 

("RX NAME") AMD THE RESOURCE CLASS ("TYPE") PROVIDED A 
RESOURCE jj Y THAT NAME HAD BEEN CREATED. */ 

FIND_I N AME : ENTRY (TYPE ,3X NA ME, RINAME , ERROR) ; 

DCL (EASE, TOP) FIXED BINARY; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIMITIVE.INTERRUPT_DISENABLER (ALL_INT, SA VELNTS) ; 

IF (TYPE = #S EMFOR) THEN DO; BASE = SEi‘5 I LIMIT; 

TOP = SEM LIEIT; 

END; 

ELSE IF (TYPE = #FILE) THEN DO; BASE = FILE L LIMIT; 

TOP = FILE U XIMIT ; 

END: 

ELSE IF (TYPE = #EEVICE) THEN DO; 

BASE = DEV L LIMIT; 
TOP = DEV U LIMIT; 
END; “ “ 

ELSE IF (TYPE = #PCT) THEN DO; 

BASE = PCT L LIMIT; 
TOP = PCT U LIMIT; 
END; 

ELSE DO; ERROR = 101; 

GO TO RETURN7; END; 

DO I = BASE TO TOP WHILE (F.X NAME -= EXT NAHE(I)); END; 

IF (I > TOP) THEN ERROR =111; 

ELSE RINAME = I; 

GO TO RETURN7; 
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ENTRY POINT SPECIFICATION 



MODULE NAME: RC ff HANDIE S ENTRY NAME: D|STROY_FCB 



PAR AMETE ES 

INPUT OUT£U£ £YPE C2IIM2S 



BIName 

Addressor 



ProVec 



Error 



Integer 

Integer 

Integer 

Vector 



Integer 



Resource internal name. 

Internal name of the process 
destroying the resource. 

List of processes found cn the 
queues or the resource being 
aestroyed. 

Error condition code. Values: 

a) 117 - process not autho- 
rized to destroy the re- 
source. 

b) 103 - invalid resource name 
cj 104 - unallocated resource. 



ENTRY POINT DESCRIPTION 

This entry point is invoked to destroy a specified resource 
provided the addressor is the owner or the creator of the 
resource. Anv process on the resource queue is returned to 
the invoker icr proper disposition. 
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ENTRY POINT IMPLEMENTATION 



Jfr***:*.**'*^****#**#*:**^ it****# 

THIS ENTRY -POINT TO RC3 HANDLER IS USEE TO DESTROY 
A SPECIFIED RGB ("RINAME") . THE PROCESS REQUESTING 
DESTRUCTION (" ADDRESSOR") MUST BE THE CREATOR OF THE 
RCE OR AN ERROR FOR THAT PROCESS IS RAISED. ALL 
PROCESS INTERNAL NAMES QUEUED ON THIS RCB ARE 
IDENTIFIED BY SETTING A BIT F’lELD IN PROVEC TO TRUE. 
THIS VECTOR IS UTILISED BY THE INVOKING PROCESS TO 
RELEASE MESSAGES TO THE SUPERVISOR CONCERNING THE 
NON-EXISTANCE OF THIS RESOURCE AND THE PROCESSES 
USING IT. V 

DESTROY^BCB: ENTRY (RINAME, ADDRESSOR , PRO V EC , ERROR) ; 

CCL QNR BIT (1) ; 

CCL PROVEC {*) BIT (1) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PR IMITIVE_ INT£EEUPI_DIS ENABLER ( ALL_I NT , SA VET N1S) ; 

IF (VALID (RINAME) ) THEN DO; 

IF ( (ADDRESSOR -.= CEE ATO R ?RIN AHE) )| 

(ADDRESSOR -*= OWNER (RxNAflE) )) THEN DC; 

ERROR = 117; 

GO TO RETURNS; 

END: 

IF ((LEFT QUE (RINAME) ->=NULL) | (RIGHT QUE (RINAME) ~>=NULL) ) 
THEN - DO ; - 

PROVEC (0) = TRUE; 

QNR = #LBFT; 

START = LEFT QUE (RINAME) ; 

DO J - 1 TO 7; 

DO WHILE (START ~= NULL) ; 

TEMP = START -> Q TOP; 

IF (TEMP -> FROM -= ADDRESSOR) THEN 
PROVEC (TEMP -> FROM) = TRUE; 

CALL REHOVEQ (R I NAME , QNR , TEMP , ST ART) ; 
FREE TEMP -> L R QUEUE; 

END; ~ ~ 

START = RIGHT QUEY RINAME) ; 

QNR = ff RIGHT ;“ 

END; 

END; 

ASSIGNED (RINAME) = FALSE; 

END; 

GO TO RETURNS; 
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ENTRY POINT SPECIFICATION 



MODULE NAME: R CB HANDLER ENTRY NAME: RC B CH ARDAT 

PARAMETERS 



INPUI 


OUTPUT 


TYPE 


CONTENTS 


RIHame 




Integer 


Resource internal name. 


PutGet 




Bit (1) 


Operation identifier. Values: 
#PUI or #GET to enter or get 
a copy of data, respectively. 


Field 




Integer 


RCB field identifier. Values: 

a) #PCTNAM - PCT external name 

b) #XNAME - external name. 


Cdata 


Cdata 


Char (8) 


Transfer of character data. 




Error 


Integer 


Error condition code. Values: 



a) 103 - invalid resource name 

b) 104 - unallocated resource. 



ENTRY, POINT DESCRI PTION 

Invoked to access character tyue data. Implemented as a 
generic entry point to Primitive^RCBData. 



ENTRY POIN T I MPLEMENTATION 



/ 30c aft << 

THIS ENTRY POINT TO RCB HANDLER IS USED TO ACCESS 
CHARACTER TYPE DATA. " RINA ME" SPECIFICES THE RCB NUHEER; 
"PUTGET" SPECIFIES THE OPERATION TO BE PERFORMED (#PUT OR 
#GET) ; " FIELD" SPECIFIES THE RCB FIELD (DEFINED BY THE 
i#V ARI AELE5) ; AND "CDATA" CONTAINS THE DATA TO BE ENTERED 
OR IS SET 10 THE VALUE TO BE RETURNED. */ 

DCL FIELD FIXED BINARY; 

DCL PUTGET BIT(T); 

RCB_CHARDAI: ENTRY (RINAME, PUTGET, FIELD, CDATA, ERROR) ; 

DCL CDAIA CHAR (8) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIMITI VE,INTLRR1JPT_DIS ENABLER (ALL_INT, SAVEINTS) ; 

IF (VALID (RINAME) ) THEN DO; 
nn ^r'TTn'j n p c a ^ V i y t v t n ^ • 

Case ( i j 7 if jputget= oput) then ext name (riname) =cdata; 

ELSE CDATA = EXT NAME (RIN7TME) ; 

EN DC ASE • 

CASE (2): IF (P UTG ET= # P UT) THEN PCT NAM E (RINAME) = CDATA; 
ELSE CDATA = PCT_NAHE (RINAME) ; 

ENCCASE; 

F.ND_CF CASES; 

END: “ 

GO TO RET URN 9 ; 
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ENTRY POINT SPECIFICATION 



MODULE NAME; RCB HANDLER 



ENTRY NAME: RCB_FIXBCA5! 



PARAMETERS 

INPUT OUTPUT TYPE 



RIName 

PutGet 

Field 



Integer 
Bit (1) 

Integer 



Fdata 



Fdata 

Error 



Integer 

Integer 



.CONTENTS 

Resource internal name. 

Operation identifier. Values; 
#PUT or #GET to enter or get 
a copy of data, respectively. 

RCB field identifier. Values: 
a) #CRATR - resource Creator 
bj #OHNER - resource Owner 

c) #DINAME - Device internal 
name 

d) #CNT SZ - Counter or file 
length 

e) #OFILE - Open_File data 

f) IS OE P - Shared Private 

g) #TFILI - File_Type data. 

Transfer of integer type data. 

Error condition code. Values: 

a) 103 - invalid resource name 

b) 104 - unallocated resource. 



ENTRY POI NT DESCRIPTION 

Invoked to access integer type data. Implemented as a 
generic entry point to' Primrtive^FvCBDa ta . 
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ENTRY POINT IMPLEMEN TATI ON 



/* * * *****#**##*****'## * * * * $ # :$< # # 

THIS ENTRY POINT TO P.CB HANDIER IS USED TO ACCESS FIXED 
BINARY TYPE DATA. "RIliAME" SPECIFICES THE RCB NUMEER; 
"PUTGET" SPECIFIES THE OPERATION TO BE PERFORMED (#PUT OR 
#GET) ; "FIELD" SPECIFIES THE RCB FIELD (DEFINED BY THE 
tVARIAELIS) : AND "FDATA" CONTAINS THE DATA TO BE ENTERED 
OR IS SET TO THE VALUE TO BE RETURNED */ 

BCBJFIXEDAl: ENTRY (RINAME, PUTGET , FIELD, FDATA, ERROR) ; 

DCL FDATA FIXED BINARY; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIEITIVE_INTEERUPT_DISEHABLE'E CALL_INT / SA VEINTS^ ; 

IF (VALID (RINAME) ) THEN DO; 

DO ACTION OF CASE (FIELD) ; 

CASE ( 1 ) T IF (PUTGET = #PUT) THEN CREATOR (RINAME) =FDATA ; 
ELSE FDATA = CREATOR (HI NAME) ; 

ENECASE: 

CASE (2): IF (P T JTGET=wPUT) THEN OWNER (RINAME) = FDATA; 



ELSE FDATA 
ENECASE; 

. CASE (3) : IF (PUTGET 

ELSE FDATA 
ENECASE; 

CASE (4): IF (PUTGET 



= OWNER (RINAME) ; 

#PUT) THEN 
DEVICE 1NAME (RJ.NAME) 
DEVICE THAfiE (RINAME) ; 



= FDATA; 



ENECASE; 
CASE (5): IF 



ELSE FDATA 
(PUTGET 



ELSE FDATA = 
ENECASE; 

CASE (6): IF (PUTGET = 

ELSE FDATA = 
ENECASE; 

CASE (7) : 1? (PUTGET = 

ELSE FDATA = 
ENECASE; 

END OF CASES; 

END; ” 

GO TO RETURN 10 ; 



#PUT) THEN 
CNTR SIZE (RINAME) 
CNTR_SlZE (RINAME) ; 

#PUT) THEN 
OPEN FILE (RINAME) 
OPEN FILE (RINAME) ; 



= FDATA; 



= FDATA; 



#PUT) THEN 

SHARED PRIVATE (RINAME) = FDATA; 
SHA3ED_PRIVATE (RINAME) ; 

#PUT) THEN 

FILE TYPE (RINAME) = FDATA; 

FILE TYPE (RINAME) ; 
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ENTRY POINT SPECIFICATION 



MODULE NAME: RCB HANDLER 



ENTRY NAME: RCB BIT QATA 



PARAMETERS 
INPUT OUTPUT 



RINaae 

PutGet 

Field 

Bdata 



.TYPE ..CONTENTS 

Integer 
Bit (1) 



Bdata 

Error- 



Bit (1) 
Integer- 



Resource internal name. 



Operation identifier. Values: 
#PUT or #GET to enter or get 
a copy of data, respectively. 

Integer RCB field identifier. Values: 






#DSTAT Device Status data 
#.L -QUE - Left Que status 
# R QUE - Righ^Que status 
#A5GND - Assigned data. 



Transfer of bits data. 

Error condition code. Values: 
a 
b 
c 



d) 



103 -« invalid resource name 

104 - unallocated resource. 
107 - invalid put operation 
attempted in queue header 
119 - invalid put operation 
attempted in assigned field 



ENTRY PO INT DESCRIPTION ; 

Invoked fcr transfer of bit type data. Implemented as a 
generic entry point to Primitive_kCBData. 
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ENTRY POINT IMPLEMENTATION 



/* *#$******#************* 

THIS ENTRY POINT TO RCb HANDIER IS USED TO ACCESS SITS 
TYPE DATA. "RINA ME 11 SPECIFIES THE RCB NUMBER; "PUTGET" 
SPECIFIES THE OPERATION TO EE PERFORMED (#PUT OR #GEI) ; 
"FIELD" SPECIFIES THE RCB FIELD (DEFINED BY THE #VARI- 
ABLES) ; AND "BDATA" CONTAINS THE DATA TO BE ENTERED CR 
IS SET TO THE VALUE TO BE RETURNED */ 

ECB_BI TDATA: ENTRY (RINAME, PUTGET, FIELD, BDATA, ERROR) ; 

DCL BDATA BIT ( 1) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PRIMITIVE_INTERR UP T_DIS ENABLER (ALL_I NT, SA VEIN IS) ; 

IF (VALID (RINAEE) } THEN DO; 

DC ACTIQN OF CASE (FIELD); 

CASE (1)7 IF (PUTGET = #PUT) THEN 

DEVICE STATUS (RINAME) = EEATA ; 
ELSE BDATA = DEVICE STATUS (RINAME) ; 

ENECASE; 

CASE (2): IF JPUTGET = #PUT) THEN ERROR = 107; 

ELSi IF (LEFT QUE (RINAME) = NULL) THEN 

BDATA = TRUE; 

ELSE BDATA = FALSE; 

ENECASE: 

CASE (3): IF (PUTGET = #PUT) THEN ERROR = 107; 

ELSE IF (RIGHT" QUE (RINAME) = NULL) THEN 

BDATA = TRUE; 

ELSE BDATA = FALSE; 

E NEC ASE ' 

CASE (4): IF <PUTGET= #PUT) THEN ERROR = 119; 

ELS E BDATA = ASSIGNED (RJ NAME) ; 

ENECASE; 

E N D_ C E CASES: 

END; ~ 

GO TC RETURN 1 1 ; 



\ 
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LOCAL.PSOCEDURES 



THE FOLLOWING LOCAL PROCEDURES ARE US 11 D 10 PERFORM 
FUNCTIONS WHICH ARE COMMON TO SEVERAL ENTRY POINTS */ 



/* JSC**#*#*#****###**#*#**#**#** 

VALID CHECKS THAT "RCBNR" IS WITHIN RANGE AND THAT THE 
RCE IS CURRENTLY ACTIVE. */ 

VALID: FROC (RCBNR) RETURN S (BIT ( 1 )) ; 

DCL RCBNR FIXED BINARY; 

IF ( (RCENR <1)1 

( (RCBNR > SEN LIMIT) S (RCENR < DEVI LIMIT)) J 
( (RCBNR > BEVU LIMIT) & (RCBNR < FlLl L LIMIT) ) 1 
(fRCBNR > FILE U LIMIT) & (RCBNR < PC1“1 LIMIT)) | 
jiiCBNR > PCT U“LlMIT) ) THEN DO; ~ “ 

ERROR = 103;“ "RETURN (FALSE) ; END; 

IF (-ASSIGNED (RCENR) [ THEN DO; 

ERROR = 104; RETURN (FALSE) ; END; 

RETURN (TRUE) ; 

END VALID; 



RFAOVFQ REMOVES THE QUEUE ELEMENT ("ELMT") FROM THE QUEUE 
("QNUM'') ASSOCIATED WITH THE RCB NUMBER (''RCE") . "TOPELMT" 
SPECIFIES THE TO? ELEMENT IN THE QUEUE. */ 

SEKOVEQ : r ROC (RCB, QNUM, ELMT , TOPELMT) ; 

DCL QNUM BIT (1 ) , 

( EL Ml , TOPELMT , TEMP , TEMP 1 ) POINTER, 

RCB EIXEiD BINARY; 

TEMP = ELMT; 

TEMPI = 1CPELMT; 

IF ((TEMP = TOPELMT) & (TEMP -> Q TOP = TOPELMT) ) 

THEN DO; 

/* REMOVE THE ONLY ELEMENT IN THE QUEUE */ 

IF (QNUM = # LEFT) THEN LEFT QUE (RCB) , TOPELMT = NULL; 
ELSE RIGHT QUE (RCB) , TOPELMT = NULL; 

RETURN; 

END; 

ELSE DO • 

IF (TEMPI = TEMP) THEN 

/* REMOVE THE TOP ELEMENT IN THE QUEUE */ 

IF (QNUM =ifLEFT) THEN 

LEFT QUF, (RCB) = TEMP -> Q EOTTOM ; 

ELSE RIGHT”QUE (RCB) = TEMP -> Q“EOITOM ; 

END; 

/* RESET THE QUEUE LINKAGE TO REMOVE THE ELEMENT */ 
TEMPI = TEMP -> Q EOTTOM; 

TEMPI -> Q TOP = TEMP -> Q TOP; 

TEMPI = TEEP -> Q TOP; 

TEMPI -> Q HOT TOM~= TEMP -> Q BOTTOM; 

RETURN; 

END REMOVZQ; 
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/* *********************** ***** 
INSERT ENTERS THE QUEUE ELEMENT ( "PTR") IN THE RCB 
("P.INAME") QUEUE SPECIFIED ("L_OE_R") BY PRIORITY ("PRI"). 



INSERT: FROC (SIN AME, L OR R, PTR, PRI) ; 

DCL (BINAMi,PRI) FIlED _ BI N ARY ; 

DCL (PTH, STAR T , TEMP) POINTER; 

DCL I OR R 3IT (1) ; 

DCL EEPTY BIT ( i) iNIT('O'B); 

IF (L OR R =S1EFT> THEN DO; 

SIAHT = LEFT QUfe(RINAME); 

IF (START = HULL) THEN EMPTY = TRUE; 

ELSE IF {START -> PRECEDENCE >= PRI) THEN GO TO FIND 
LEFT QUE(RINAME) = PTR; 

END; 

ELSE DO; 

START = RIGHT QUE(RINAME); 

IF (START = TiTJL'L) THEN EMPTY = THUS; 

ELSE IF (START -> PRECEDENCE >= PRI) THEN GO TO FIND 
RIGHT QUE (RINAME) = PTR; 

£ND ; 

IF (EMPTY) THEN DO; 

PTR -> Q TOP, PTR -> Q BOTTOM = PTR ; 

RETURN; * ' 

END; 



TEMP = START; 

GO TC ENT; 

FINE: TEMP = START -> Q BOTTOM; 

DC WHILE ( (TEI3P-i=START) & (TEMP— >PRECEDENCE>=PRI) ) 
TEMP = TEMP -> Q BOTTOM; 

END; 



ENT: PTE -> Q EOT TOM = TEMP; 

START, PTR -> Q TOP = TEMP -> Q TOP; 
TEMP -> Q TOP, START -> Q BOTTOTI = PTR; 
RETURN; 

END INSERT; 
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/ % % # ajt ajc sjc jjc 

LOOKUP SEARCHES THE QUEUE BEGINNING WITH THE ELEMENT 
"START" FOR PROCESS SPECIFIED 3Y "NAM". IF THE PRCCESS 
IS FOUND "START" IS SSI TO THE POINTER TO THE PROCESS 
AND IPOS IS SET TO THE PROCESS' POSITION IN THE QUEUE. 

IF THE PROCESS IS NOT FOUND "IPOS" IS SET TC ZERO. */ 

LOOKUP: PRCC/START, NAM, IPOS) ; 

DCL (START, TEMP) POINTER, 

( NAM, IPOS, I) FIXED BINARY; • 

IEMP = START; 

1 = 1 ; 

IF (TEMP -> FROM -.= NAM) THEN DO; 

TEMP = START -> Q BOTTOM; 

1 = 2; 

DO WHILE ( (TEMP -*= START ) & (TEMP -> FROM -*= NAM) ) ; 

I = I + 1 ; 

TEMP = TEMP -> Q BOTTOM; 

END; 

END; 

IF (TEMP -> FROM -.= NAM) THEN IPOS = 0; 

ELSE IPOS = I; 

START = TEMP; 

FETUBN; 

LND LOCKUP; 
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/*********:(<*****:#******** + **** 

QUEPOSIT RETURNS THE POINTER TO THE PROCESS IN THE 
POSITION SPECIEIED BY "IPOS" IN THE QUEUE STARTING WITH 
"START". "START" IS SET TO THE RETURN POINTER IF THE 
PROCESS IS FOUND ELSE "IPOS" IS SET TO ZERO. */ 

QUEPOSIT: PROC (IPOS, START) ; 

DCL (IPOS,I) FIXED BINARY, 

(START, TEMP) POINTER; 

TEMP = START -> Q BOTTOM; 
i=i; 

DO WHILE (( 

TEMP = TE 
1 = 1 + 1 
END ; 

IF ( I = IPOS) THEN /* DONE */ START = TEMP -> Q TCP; 

ELSE /* NOT DONE V .IPOS = 0; ” 

RETURN; 

END QUEPOSIT ; 



I < IPOS) & (TEMP -«= START) ) ; 
MP -> Q_bOTTOM; 



RETURN 1 : RETURN2: RETURN3 : RETURN4 : RETURN5: RETURN6: 

RET URN 7 ; RETURNS: RETURN 9 : RETURN1 0: RET UR N 1 1 : 

/*** ENABLE THE INTERRUPTS ***/ 

CALL PRIEITIVE_INT£RS UP T_EN ABLER (ALL_I NT,SAVEINIS) ; 

END PRIMITIVE_RCB_HANDLER; 
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MODULE SPECIFICATION 



NAME: INTER RUPT ENA BLER TYPE: PRIMITIVE 

PARAMETERS 
INPUT OUTPUT 

Interrupt 
Save_int 

EXTERNAL CALLS MADE TO OTHER MODULES 
NAME . PARAMETERS PURPOSE 

None. 



.TYPE CONTENTS 

Integer If not zero, it identifies the 

interrupt to he enabled. 

Integer If interrupt is zero, it iden- 

Array tifies all interrupts to be 

enabled. 



EXTERNAL CALLS MADE EY OTHER MODULES 

NAHJ PURPOSE 

Invoked by all primitives and the Interrupt Handler upon 
completing execution. 



DATA STRUCTURES USED 

NAME TYPE PURPOSE/ VAL UES 



Intrupt Bit(1) External structure containing 

Array the current status of the sys- 

tem interrupts. A '1' indi- 
cates the interrupt is erabied 
and a 'O' indicates that it is 
disabled . 



MODULE_DE5CRIPlION 

This primitive vas designed to enable all the interrupts set 
in the array save vector if the parameter interrupt equals 
zero otherwise only the specified interrupt is enabled. 
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hodule_implimentation 



^INCLUDE NAMCHGR; /***** INTERRUPT ENAEIER *****/ 

/* THIS PRIMITIVE WAS DESIGNED TO ENABLE ALL 'THE 
INIERRUPTS SET TO TRUE IN THE ARRAY SAVINT IF 
INTERRUPT# IS ZERO (0) , OR TO ENABLE THE SPECIFIC 
INIERRUPT SPECIE IED BY INTERRUPT# */ 

PRIMITIV E^I N TERR UP T_ ENABLER: PROC (INTERRUPT# , SAVEI NT) ; 

^INCLUDE INTACTV; 

DCL INTERRUPT# FIXED BINARY (15), 

SAVEINT (16) BIT ( 1 ) ; /* DIMENSIONED NUMBINT */ 

IF (INTERRUPT# = 0) THEN /* RENABLE FROM SAVEINT */ 
INTRUPT = SAVEINT,; 

/* INTRUPT CONTAINS THE CURRENT STATUS OF THE SYSTEM- 
INTERRUPTS. A 1 INDICATES THE INTERRUPT IS ENABLED; 

A 0 INDICATES THE INTERRUPT IS DISENABLED V 

ELSE INTRUPT (INTERRUPT#) = ' 1'B; 

/* ENABLE A SINGLE INTERRUPT */ 

RETURN ; 

END PRIMITIVE_INTERRUPT_ENABLER ; 
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MODULE SPECIFICATION 



NAME: I NTE RRUPT PI SA BI ER 



TYPE: PRIMIT IVE 



CONTENTS. 



PARAMETERS 

JjNPUT OUTPUT TYPE. 

Interrupt Integer 



Save int Integer 
Array 



If not zero, it identifies the 
interrupt to be disabled. 

If interrupt is zero, it is 
used to save the status cf all 
interrupts being disabled. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PARAMETERS PURPOSE 

None. 



EXTERNAL CALLS MADE BY OTHER MODULES 

NAME PURREE 

Invoked ry all primitives and the Interrupt Handler to 
prevent interrupts during execution. 



DATA STRUCTURES USED 

NAHF^ FI ELD JYPE PURPOSE/VAL UES • 

Intrupt Bit{1) External structure containing 

Array the current status of the sys- 

tem interrupts. A 1 1* indi-. 
cates the interrupt is enabled 
and a 'O' indicates that it is 
disabled . 



MODULE_D5JCRIPTTgN_ 

This primitive was designed to disable all the interrupts 
currently enabled and to return the current interrupt status 
in the save vector if the interrupt parameter equals zero 
otherwise only the interrupt specified is disabled. 
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MODULE IMPLEMENTATION 



^INCLUDE NAMCHGR; /#**** INTERRUPT DISENABLER *****/ 

/* THIS PRIMITIVE NAS DESIGNED TO DISENABLE ALL THE 
INTERRUPTS CURRENTLY SET AND TO SAVE THE CURRENT 
INTERRUPT STATUS IN THE ARRAY SAVEINT, IF INTERRUPT# 
EQUALS ZERO (0) OTHERWISE DISENABLE THE SPECIEIC 
INTERRUPT INDICATED BY INTERRUPT# */ 

PRIMITIVE_INIERRUPT_DISENA3LER: PROC (INTERRUPT#, SAVEINT) ; 

5SINCLUDE INTACTV; 

DCL INTERRUPT# FIXED BINARY (15) , 

SAVEINT (16) BIT (1) ; 

IF (INTERRUPT# = 0) THEN /* DISENABLE ALL INTERRUPTS 
AND SAVE THE CURRENT CONFIGURATION IN SAVEINT */ 

DO; 

/* INTRUFT CONTAINS THE CURRENT STATUS OF THE SYSTEM 
INTERRUPTS. A 1 INDICATES THE INTERRUPT IS ENABLER; 

A 0 INDICATES AN INTERRUPT IS DISENABLED */ 

SAVEINT = INTRUPT; 

INTRUFT = ' O' B; 

END ; 

ELSE /* DISENABLE A SINGLE INTERRUPT */ 

INTRUPT (INTERRUPT#) = *0'B; 

END PRI MITIVE_INTERR UPT_DI SEN ABLER; 
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MODULE SPECIFICATION 



NAME: SJ V ESTATE 



TYPE: PRIMITIVE 



PARAMETERS 
INPUT OUTPUT 

P-Inaae 

Processor 



Error 



T YPE 

Integer 

Integer 

Integer 



CO NTENTS 

Process internal name. 

CPU on which the process being 
saved was executing. 

Returns error condition code. 



EXTERNAL CALLS MADE TO OTHER MODULES 
NAME PARAMJRTE£S PUR POS E 



Interrupt Interrupt Number, 
Disabler Save Vector 



This module is invoked to dis- 
able all interrupts while 
Savestate is in execution. 



Interrupt Interrupt Number, 
enabler Save Vector 



This module is invoked tc re- 
enable all interrupts which 
were disabled by tne current 
module in execution. 



PCBDATA Process I-Name, 

Put/Get Parameter, 
Field Identifier, 
Data Parameter, 
Error Parameter 



This module is invoked tc save 
the contents of the CPU regis- 
ters on which Process I-Name 
was in execution. 



EXTERNAL CALLS MADE BY OTHER MODULES 
N A a J PURPOS E 



Scheduler 



Reguest 



Save the state of a process which is 
being preempted. 

Save the state of a process whose re- 
blocked on a request for a message or 
resource. 



Interrupt Handler Save the state of the current process in 

execution on the Operating Syscem pro- 
cessor until the current interrupt is 
handled. 
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DATA 5TH UCTUEES USED 



NAME FIELD 


TYPE 


PURPOSE/VALUES 


Saveint 


Bit (1) 
Array 


Array used to save the status 
of the interrupts; arguetcent 
in call to Disabler and 
Enabler . 


CPUREGS 


Integer 

Matrix 


External structure represent- 
ing the CPU registers for each 
processor. • 


Item (i, j) 


Integer 


Represents register 'j* cn 
processor * i ’. 


Current- 

Process 


Integer 

Array 


External vector used to iden- 
tify the process executing on 
processor 1 i* (Array index). 



M0DULE_PE£CRIFTI0N 

This primitive was designed to save the current state cf the 
processor in the save-area (PCB Field) for the specified 
process. 
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MO DUL E IMPLEMENTATION 



^INCLUDE NAMCHGR; /***♦* SAVE STATE ♦****/ 

/* THIS PRIMITIVE WAS DESIGNED TO SAVE THE CURRENT STATE 
OF THE PROCESSOR ( "PROCESSOR#") IN THE ShVEAREA FOR 
THE PROCESS SPECIFIED BY "PINAME". UECN COMPLETION 
THE CURRENT PROCESS FOR THE SPECIFIED PROCESSOR IS 
SET TO ZERO. */ 

PRIHITIVE_SA VEST ATE: PROC (PI NAME, PROCESSOR# # ERPRM) ; 

^INCLUDE EEGS1RS ; 

^INCLUDE PCEECL; 

^INCLUDE CSDCI; 

ON CHECK (ERROR) 

BEGIN ; 

IF (ERROR 0) THEN DO; 

ERPRM = ERROR; 

GO TO RETURN POINT; 

END; 

END; 

DCL (PINAME, PROCESSOR# , ERPRM) FIXED BINARY (15); 

DCL ERFOE FxXED BINARY (15) INIT(O); 

DCL TEMPREG (10) FIXED BINARY (31) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL FRIMITIVE_INTERRUPT_DIS EN ABLER ( ALL_I NT, SAVEINTS) ; 

/* SAVE THE PROCESSOR STATE IN PROCESS'S PCE */ 
TEMPREG = CPUREGS (PROCESSOR#, *) ; 

CALL PRIMITIVE PCBDATA (PI NAME , $PUT ,a)S TATE, TEMP REG , 

ERROR) ; 

/♦SET CURRENT PROCESS OF THE PROCESSOR TO ZERO*/ 
CURRENT_PROCESS (PROCESSOR#) = 0; 

/*** REENABLE THE INTERRUPTS ***/ 

CALL PRIMITIVE INTERRUPT ENABLER (ALL I NT , S A VEI NTS) ; 
RETURN FCINI: ~ ~ ~ 

END PRT MITI VE SA V ESTATE; 
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MODULE SPECIFICATION 



NAME: RESTOR ErSTAT E 



TYPE: PRIMITIVE 



PARAMETERS 
INPUT OUTPUT. 

P-Indme 

Processor 

Error 



TYPE 

Integer 

Integer 

Integer 



CO NTEN TS 

Process internal name. 

CPU allocated to the process. 
Returns error condition code. 



EXTERNAL CALLS -MADE TO -OTHER MODULES 
NAME PARAMETERS PURPOSE 



Interrupt Interrupt Number, 
Disabler Save Vector 



This module is invoked tc dis- 
able all interrupts while 
Restorestate is in execution. 



Interru-pt Interrupt Number, 
enabler Save Vector 



PCEDATA Process I-Name, 

Put/Get Parameter, 
Field Identifier, 
Data Parameter, 
Error Parameter 



This module is invoked to re- 
enable all interrupts which 
were disabled by the current 
module in execution. 

This module is invoked tc set 
the CPU registers for the spe- 
cified processor to the state 
vector saved in the process's 
PCB. 



EXTERNAL CAIIS MADE BY OTHER MODULES 

NAME PURPOSE 

Scheduler Restore the state of a process which 

was blocked, preempted or just created. 

Interrupt Handler Restore the state of the process preemp- 
ted by this module after the interrupt 
has been handled. 
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DATA STRUCTURES USED 



NAME 


PI ELD 


'TYPE 


PORPOSE/VALUES 


Saveiat 




Bit ( 1 ) 
Array 


Array used to save the status 
of the interrupts; arguement 
in call to Disabler and 
* Enabler. 


CPUREGS 




Integer 

Matrix 


External structure represent- 
ing the CPU registers for each 
processor. 




Item (i,j 


) Integer 


Represents register 'j* cn 
processor 1 i’. 


Current- 

Process 




Integer 

Array 


External vector used to iden- 
tify the process executing on 
processor 1 i' (Array Index). 



MO DUL E DESCRI PTION 

This primitive was designed to set the registers of the spe- 
cified processor to the state vector savea in the process’s 
PC3 2 nd to set cur rent_process for the processor to the 
specified process. 
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MODULE IMP LEMENTATI ON 

^INCLUDE NAHCHGR; /***** RESTORE STATE *****/ 

/* THIS PRIMITIVE WAS DESIGNED TO RESTORE THE REGISTERS 
FOR THE PROCESS SPECIFIED EY PINAME FOR THE PROCESSOR 
SPECIFIED 3Y PROCESSOR# AND TO SET THE CURRENT PROCESS 
FOE THE PROCESSOR TO PINAME. */ 

/CHECK (ERROR) ) : 

PBIUI TI V E^RESTORES TATE: PROC (PINAME, PROCESSOR# , ERPRM) ; 

J5 INCLUDE PCEECL; 

% IN CRUDE CSDCL ; 

^INCLUDE REGSTRS; 

ON CHECK (ERROR) 

BEGIN; 

IF (ERROR -= 0) THEN DO; 

ERPRM = ERROR; 

GO TO RETURN POINT; 

END; 

END; 

DCL /PINAME/ PROCESSOR# / ERPRM) FIXED BINARY ( 1 5) ; 

DCL ERROR FIXED BINARY (15) INII(O); 

DCI 1EMPREG (10) FIXED BINARY (31) ; 

/*** DISENABLE ALL INTERRUPTS ***/ 

CALL PR I MITIV E_IN TERR UP T_DI 3 ENABLER ( ALL_I NT, S A VEINTS ) ; 

/* GET THE PROCESSOR STATE SAVED IN THE PROCESS'S 

PCB V 

CALL PRIMITIVE PC3DATA (PINAME, SGET,dSTATE ,TEMPREG , 

~ ERROR) ; 

/* SET THE PROCESSOR REGISTERS AND UEDATE THE 

CURRENT PROCESS. */ 

CPU3EGS (PROCESSOR#/*) - TEMPREG ; 

CURRZNT_FR0CE35 (PROCESSOR#) = PINAME; 

/* REENABLE THE INTERRUPTS. */ 

CALL FRIM1TIVE_INTERRU?T_ENABLER ( ALL_I NT , SAVEI NTS) ; 

RETURN POINT: 

END PR IUITIVE_RES TOR ESTATE ; 
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APPENDIX D; 



MODEL INITIALIZATION AND IEST PROGRAMS 



^INCLUDE NAMCHGR; /****♦ HARDWARE DRIVER *****/ 

(CHICK (ERROR) ) : 

HDEIVEE: PROC OPTIONS (MAIN) ; 

/* THE HAEDWAEE DRIVER IS USED TO SIMULATE THE PROCESSORS 
EXECUTING THE SCHEDULED PROCESSES, SETTING INTERRUPTS 
AND INVOKING THE INTERRUPT HANDLER AFTER AN 
APPROPRIATE TIME LAPSE AND PERFORMING OTHER FUNCTIONS 
OF THE HARDWARE. */ 

ON CHECK (ERROR) 

BEGIN ; 

IF (ERROR --= 0) THEN DO; 

PUT FILE (SYSPRINT) LIST (' HARDWARE DRIVER: ERRGR= 1 , 

ERROR) SKIP; 

(NCCHECK (ERROR) ) : 

BEGIN; ERROR = 0; END; 

END; 

END; /* ERROR ON CONDITION */ 

^INCLUDE PCEECL; 

^INCLUDE BCBLCL ; 

/cINCLUDE CSDCL; 

^INCLUDE INTACTV; 

%I NCI. UDE INTSET; 

^INCLUDE GjlNjlEC; 

SINCE UDE CAS F STM ; 

SINCLULE BEGSIRS; 

DCL III ME (-1 6) FIXED bINA5Y(3l) STATIC, 

TIMER FIXiiD BINARY (31), 

CPROC (4) FIXED BINARY (15) STATIC 
CINDX (4) FIXED BINARY (15) STATIC 
CHEG(10) FIXED BINARY (31) STATIC 
ERROR FIXED BINARY INIT(O), 

IC FIXED BINARY EXTERNAL; 

CURRENT PROCESS = 0; 

CALL INITIALIZATION; 

CALI TESTER; 

DC FOREVER; 

PUT FILE (SYSPRINT) LIST (' HARDWARE DRIVER - TOP') SKIP; 

/** EXECUTE ONE "STEP" ON EACH PROCESSOR **/ 

DO I = 1 TO NUMBCPU ; 

IF (CURRENT PROCESS (I) -= CPROC (I) ) THEN DO; 

/*** SAVE THE IDENTIFICATION OF THE PROCESS EEING 
run ***#/ 

CPROC (I) = CURRENT PROCESS (I) ; 

CINDX (I) = CPURHGS1I, 1) ; 

END ; 

/*** SET THE INSTRUCTION COUNTER FOR SIMULATION */ 
IC = CPUREGS (1,2) ; 

IF (CURRLNT_PROCRSS (I) i= 0) THEN DO; 

PUT FILE (SYSPRINT) LIST (' INDEX= ' , CINDX (I) ) ; 

PUT FILE (SYSPRINT) LIST ( ' ') SKIP; 



I NIT 
INI! 
I NIT 



((4)0) , 

\mt. 
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/** EXECUTE THE PROCESS **/ 

EO ACTION OF CASE (CINDX (I) ) ; 

CASE(1)7 CALL SUPERVISOR; 

CASE (2) • 

PUT FILE (SYSPRINT) 

/* CALL TERMINATOR; 

ENECASE; 

CASE (3) ; 

PUT FILS (SYSPRINT) LIST (' INITIATOR - DUMMY') 



ENDCASE; 



LIST^» TERMINATOR - DUMMY') 



/* CALL 
ENECASE; 

CASE (4): CALL 

CASE (5) : CALL 

CASE (6) : CALL 

7) : CALL 

,ASE ; 



INITIATOR; */ 



INPUT CONTROLLER; ENDCASE; 
OUTPUT CONTROLLER; ENECASE; 
FILE MANAGER; ENECASE; 
OPEBllOS SYSTEM COMMUNICATOR; 



CASE 
ENE( 

CASE(8): CALL FILE SPACE MANAGER; ENDCASE ; 

END CF CASES' *" ~ 

/* “CHECK to’ SEE IF A PROCESS HAS BEEN PREEMPTED. 

IE SO, SAVE THE CORRECT INSTRUCTION COUNTER FOR 
SIMULATION PURPOSES. */ 



IE 



CREG 

CREG 

CALL 



THEN DO, 



(CPROC(I) CURRENT PROCESS (I) ) 

(1) = CINDX (I) ; “ 

(2j = IC: 

PRIMITIVE PCBDATA (CPROC (I) , cfiPUT,3ST ATE, CREG, 

ERROR) ; 

END: 

ELSE 



/*** SAVE THE SIMULATION INSTRUCTION COUNTER 

**♦**/ 

CPUREGS (I, 2) = IC; 

END; 

/* CHECK INTERRUPTS */ 

TIMER = TIMER + 5; /* INCREMENT THE CLOCK */ 

DO J = 1 TO NUMBINT; 

/*** ip IHE TIME FOR AN INTERRUPT TO CCCUP 

HAS ELAPSED THEN SET THE INTERRUPT **/ 
IF ( (INTRUPT (J) ) & (ITIME(J) >= TIMER)) THEN DO; 

IN1RSET (I) = TRUE; 

PUT FILE (SYSPRINT) LIST ( 'INTERRUPT ■ ,1, 'SET ' f ; 

/* 

CALL INTERRUPT HANDLER; 

V 

END ; 

END; 

END; 

END; /* OF DO FOREVER */ 



STARTIO: ENTRY (INTERRUPT#) ; 

/**** XHIS PROCEDURE SIMULATES STARTING AN I/C 
DEVICE - THE BASE TIME IS SAVED TO CHECK 
ELAPSED TIME TO SET THE INTERRUPT ****/ 



6)5 0); 
cVn 



DCL INTERRUPT# FIXED BINARY (15), 

DEVTIME ( 1 6 ) FIXED BINARY (15) STATIC INIT ( ( 1 
/* DEVTIME IS THE AVERAGE LENGTH OE TIME REQUIRED 
FOR A DEVICE TO PERFORM ITS FUNCTION 
ITIME (INTERRUPT#) = TIMER + DEVTIME (INTERRUPT# ) 
RETURN; 



V 
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TESTER : PBCC; 

/**** THIS PROCEDURE IS USED TO SET THE SYSTEM STATE 

EOR TEST PURPOSES. ***/ 

/*** TRACE IS USED TO ENABLE PRINT STATMENTS IN 

•SELECTED PROCEDURES. **♦**/ 

DCL TRACE BIT { 1) EXTERNAL; 

TRACE = TRUE; 

^INCLUDE REQRE1D; 

DCL TEST MSGS (3) CHAR(8) INIT ('IPDEV1 
•OPDZV1 ' , ' FOPDEV 1 '); 

/*** RELEASE MESSAGES TO CREATE DEVICES FOE THE 
INPUT CONTROLLER, OUTPUT CONTROLLER AND THE 
FILE MANAGER. *****/ 

ALLOCATE MESSAGE BUFFER SET (MESS AGE) ; 

MSG SEMAPHORE, FI'ElD 2, FIELDS, FIELD4.FIE1D5, FI EL D6 = 0; 
CHAx? EIEID1, CHAR F.IEi.D2, CHAR FIELD3.,CHAE FIELD4 = 

AN S Hi R REQUEST =~FALSE; 

FIELD 1“ = SSJCL; 

K = 4; 

DO I =1 TO 3; 

ALLOCATE INPUT' BUFFER SET (IBUFPTR) ; 

BUFFER LOCATION = IBUFPTR; 

IFjI<3T THEN INPUT BUFFER = ' cDSADD '||1EST MSGS (I) ; 
ELSE INPUT BUFFER = -, 5)a)AED *||TEST MSGS(3)|T 

• BIG BIRD* ; 

CALL PRIMITIVE RELEAS E { K7SINPUT , MESS A GE , ERROR) ; 

END; 

END TESTER; 

END HDEIVER; 
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^INCLUDE NAKCHGR; /***** INITIALIZATION ♦****/ 

(CHECK (ERROR) ) : 

INITIALIZATION: PRCC OPTIONS (MAIN) ; 

DCL IK ACE BIT ( 1) . EXTERNAL; 

IP TB ACE THEN 

PUT FILE (SYSPRINT) LIST (' ENTERING INITIALIZE'); 

ON CHECK (ERROR) 

EEGIN; 

IE (ERROR 0) THEN DO; 

PUT PILE (SYSPRINT) LIST ('IN INITIALIZE, ERROR = 
ERROR) SKIP ; 

(NOCHECK (ERROR) ) : BEGIN; ERROR = 0; END; 

END; 

END; 

DCL ERROR FIXED BINARY INIT(O); 

^INCLUDE RE Q HELD ; 

^INCLUDE RCcECL; 

^INCLUDE FCEDCL; 

^INCLUDE GEN EEC; 

^INCLUDE OSDCL; 

^INCLUDE 3EGSTR5 ; 

^INCLUDE INTACTV; 

^INCLUDE INTSET; 

^INCLUDE CASESTil; 



/*** INITIALIZE INTERFACE VARIABLES ***/ 
ANYPROC = 0; 



A AACCES 
A A A C Q B D 
A ASSG ND 
A A A V A I L 

Ji ji r> T r* tt 

tT tr V- 1 j O ^ 

ACRATR 
AC NT SZ 
ADEVlCE 
ADI NAME 
ADSTAT 
AFIIE = 
AFNDOP 1 
AFNDCP2 
AFNDOP3 
AFNDCP4 
AFNDOP5 
AGET = 

A AGO = 

A AHOLD 



ALEFI = 
#L QUZ 
AATIOACC 



= *01 • ] 
= ' 10* ] 

= %'• 

= 0 ; 

= • 1 • B 



Vi: 

: | 

= 4 
= 5 

• 1 'B 
' 1* B; 

= '0'B; 

' 0'B; 

= 4 * 

= *00' B 



AANOAVL = 3; 
AOFILE = 5; 

A A OPEN = '0'B; 
AOS = '0'E; 

# CNN EE = 2; 

#PCT = 4 ; 
APCTNAM = 2; 
AAPERKF = 1; 

A A PR IV = 1; 

APUT = '0'B; 
AAREAD = 1: 

A ARE ADA = 6; 
AAREACR = 1; 
AAREADS = 4; 
ARIGHT = * 1 ' B; 
AR QUE = 3; 

A A3 ACRE = ' 1 1 ' B 
AASACR = 3; 
ASEKFCR = 1; 
AASHRD = 0; 
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#S OR P 

*#DekTf 

£TFILE = 
#*TCRPF 

# USER = 
##WEI1E 

# # WRIT A 

# # WRITH 
##WRI1R 
##NRIIS 
fcXNAMI = 

$$ADE = 

SSCLCSF 

SSDELET 

SSDIEAD 

SSDIRL'L 

SSDIRRD 

S3 DONE = 

5SDS1YF 

S3EOE = 

SSEX1NT 

SSFAIL = 

SSFIICP 

S$INIEC= 

S3JC1 = 

S30PENF 

SSOPCCH 

$ $ 0 P E 1 E 

SSPASS = 

3SPERMF 

$.$REAB = 

S$S PACE 

S3SPCKN 

S3 ST CP = 

S3TEMPF 

SSTEEM = 

S3WRI1E 



I 

= 7 i- 

• 1 * 6 ; 

= | 
“l? 1 

0 : 

= rij 

*17! 

- i; 

15 • 

=J; 

= 7 21 

l 6 j. 

: 26 ; 

■.’Si 

: 

~ 9 

= 0; 
= 1 S| 
'.’ii 



DBOEHNE = 9; 
3SRMVEC = 1; 
3CHIID = 4: 
DCYCLE = 12; 
3FSTA1 = 10: 



3FWCN1R 
3GE1 = 
3LFTSIB 
0MSGPTR 
a) NR PGS 
clPASENT 
SPE NR 



1 



= 7 



O' 



DPRTHTY 
id PUT = • 
3QUAHTM 
cJRESVEC = 
3RGTSIB = 
DSTA1E = 
DSTATCS = 
DSYSPEO = 
DXNAMZ = 



11 
F * 

c ’ 

1 

S! 

j: 

2i 

l\ 

* 

1; 



1 



23BLKBR 
D3BLKDT 
c) 3 R E D Y A 
33RUN = 
D3SUSPD 



= • BLOCK EDR ' 
= 'BLOCKED? ’ 
= 'READY A’; 
'RUNNING' j 
= 'SUSPEND' ; 
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/*** INITIALIZE LIMIT VARIABLES ***/ 

PCB_LIH = 50; 

ALL INT = 0: 

NUMLINT = 16; 

NUMECPU = 4; 

DEV L LIMIT = 101; 

DEV - U — LIMIT = 110 ; 

FILl I LIMIT = 51; 

FILE"U"LIMIT =100 ; 

PCT I LIMIT- = 111; 

PCT — U — LIMIT = 120; 

SEM — L — LIMIT = 1; 

SEM"l1mII= 50; 

CPUREGS = 0: 

INTRUPT = ' 0 ' B ; 

IN1ESET = ' 0 ' B ; 



DCL 

DCL 

DCL 

DCL 

DCL 

DCL 

DCL 

DCL 

DCL 



STATE (10) FIXED BINARY (31) ; 

SYS PROC EIT fl) ,EXT NAM CHAR (8); 

(F AT"HER , 3R CT HER, PRI ,CYCLE,INAME,L 
FIXED BINARY; 

SYSPROCESS (8) FIXED BINARY: 

ACCESS (120) BIT (2) INIT ( (120) (1) ' 0 
CWNZF. FIXED BINARY, DUMMYFB FIXED E 
DUMMYB1 BIT (1) : 

EUMMYCHAR CHAR (8) INIT((8)"); 

NULLPTR POINTER; 

MSG INIT POINTER; 



LAS1PROC) 



1*3); 

BINARY 



INIT (0) 



/* INITIALIZE A MESSAGE BUFFER */ 

ALLOCATE MESSAGE BUFFER SET (MESSAGE) ; 

MSG INIT = MESSAGE; 

FIELD 1 , FIELD2, FI ELD 3, FIELD4, FIELD5 , FIEID6 = 0: 

CHAR FI ELD 1 , CHAR FIELD2 , CHAR FIELDS, CHAR FIELD4 = "; 
RELElSOR =0; “ 

MSG SEMAPHORE = 0; 

ANSViER REQUEST = FALSE; 

BUFFER" LOCATION = NULL; 

/*** CREATE PCB FOR ERROR HANDLER ***/ 

CALL PCBINIT; 



/***SET INITIAL SYSTEM STATS ***/ 

SYS PROCESSOR .PROCESSOR = 1: 

CURL ENT_PROCES S (S Y5_PR0CES SOR) , SYSPROCESS (1) = 1; 

/*** ADD CODE FOR PAGE TABLE INITIALIZATION ***/ 



/*** SET STATE FOR THE ERROR HANDLER ***/ 

I NAME = 1; 

CALL PRIMITIVE PCBDATA (I NAME ,3PUT, 3PE NR, SYS PROCESSOR, 

ERROR) ; 

STATE = 0; 

STATE (1) = 1; 

S X AT E { 2) = 1* 

CALL PRIMITIVE_PCBDATA (IHAME ,3PUT, ESTATE, STATE, ERRCR) ; 



/** INITIALIZE MESSAGE BUFFER FOR ERROR HANDLER **/ 
ALLOCATE MESSAGE BUFFER S ET (MESS AGE) ; 

MESSAGE -> MESSAGE BUFFER = MSG INIT -> MESSAGE EUFFER; 
CALL £EIMITIVE_PCBT3ATA (IN AME , a)PuT, 3MSGPTR , MESSAGE, 

ERROR) ; 



/** INITIALIZE RESOURCE VECTOR FOR ERROR HANDLER **/ 
CALL PRIMITIVE PCD DAT A (INAML,a)PUX, 3P.ES VEC , 

"SF.il L LIMIT, PCT U LIMIT , ACCESS , ERROR) ; 
ACCESS = 'OO'B; " " 
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/* INITIALIZE A PCB FOE THE TERMINATOR */ 

SYS I ROC = TRUE; 

FATHER = . 1 : 

BROTHER = 0; 

PRI = 49: 

CYCLE = 0; 

EXT NAM = 1 TER MINT R' : 

CALX GET PCB (FATHER, BROTHER, EXT NAM , PRI r SYS PROC, STATE, 
INAME, CYCLE, ERROR) ; 

STAlf (2) = 2 * 

CALL fxiIHITIvI PCBDATA (I N AME , cDPUT, SSTAT US ,a)5)RED Y A , 

ERROR) : 

CALL PRIMITIVE PCBDATA (INAME, ©PUT, 3STATE, STATE, ERROR) : 
CALL FRIMIII VE — PCBDATA (INANE , ©PUT, a)PE NR, SYS PROCESSOR, 

ERROR) : - 

ALLOCATE MESSAGE BUFFER SET (MESSAGE) ; 

MESSAGE -> MESSAGE BUFFER = MSG INIT -> MESSAGE EUFFER ; 
CALL PRIMITIVE PCBDATA (INA ME , 3 PUT , SMSG PTE , MESS ACE , 

ERROR) ; 

FATHER, SYSPROCESS (2) = INAME; 



/*** INITIALIZE PCB 1 S FOR SYSTEM PROCESSES ***/ 
DO I = 1 TO 6; 

DO ACTION OF CASE (I) ; 

CASE ( 1) :~y* INITIATOR */ 

EXT NAM = 1 1 NIT AT OR * ; 

PRI“= 4-8; 



ENLCASE; 
CASE (2) : /* 
EXT NAM = 



PRI - - 48, 



ENLCASE; 
CASE (3) 



/* 



EXT NAM = 



PRI = 48; 
ENLCASE; 



CASE (4) : /* 
EXT NAM = 
PRI = 45; 



INPUT CONTROLLER */ 
' INCONTRL ' ; 



OUTPUT CONTROLLER */ 
'OUTCHTRL'; 



FILE MANAGER */ 
1 FILEMNGR * ; 



E N EC A c E ’ 

CASE (5) : /* OPERATOR SYSTEM COMMUNICATOR */ 
EXT NAM = 'OP COMM'; 

PRI - = 49; 

ENLCASE * 

CASE (bf ! /* FILE SPACE MANAGER */ 

EXT NAM = 'SPACEMAN'; 

FRI = 45; 

EROTHER = 0; 

EAT HER = SYSPROCESS (6) ; 



ENLCASE; 

END OF CASES: 

CALI GrTPCB (FATHER, 3R0THER.EXT NAM , PRI, SYS PROC, STATE 
,1 NAME, CYCLE, ERROR)! 

IF TRACE THEN PUT FILE (SYSPRINT) LIST ( 

•CASE INDEX =',!,' INAME =', INAME) SKIP; 

BRCTHEE = INAME; 

CALL PRIMITIVE PCBDATA (I NA ME , ©PUT , <5P E NR, SYS PROCESSOR 

, ERROR) ; 

ALLOCATE MESSAGE BUFFER SET (MESSAGE) ; 

MES5A G E->MES S AGE - BUFF ER = MSG IN IT- MESS AGE BUFFER; 
CALI PRIMITIVE PCBDATA (INAME ,3PUT, 3KSGETR, MESSAGE , 

ERROR) ; 

STATE (2) = 1 + 2; 

CALL PRIMITIVE PCBDATA (INA ME ,3PUT, 3ST ATE, STATE ,EB3CB) ; 
CALL PRIMITIVE - PCBDATA (INAME, 3PUT, ©STATUS, ©3RRDYA , 

ERROR) ; 

SYSFROCESS (1+2) = INAME: 

IF ( (I>1) 6 (I < 6) ) THEN 

CALL PRIMITIVE PCBDATA (L ASTPROC , 3P UT , 3LFT5I E , I KA ME, 

ERROR) ; 

LASTPROC -= INAME; 

END; 
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/* CCNNECT LINEAGE OE SYSTEM PROCESSES */ 

FATHER = SYSPROCESS (2) : 

LASTPEOC = SYSPROCESS (7) ; 

CALL PRIMITIVE PCBDAT A (FATHER , J)PU1 , 3CKILD , LASTP30C , 



ERROR^i 



/* CCNNECT FILE SPACE MANAG 
FATHER = SYSPHOCESS 
LASTPBOC = SYSPBOCE 
CALL 



TO FILE MANAGER */ 



S (6) : 

PRIMITIVE PCBDATA (FATHER , c)PUT , cDCHILD , LAST P ROC , 

ERROR) ; 



/* SET UP SEMAPHORES 
DO I = 1 TO 19; 

DO ACTION OF CASE 
tASE(1)T EXT_ NAt 



V 



Pi ■ 



ENDJOB' 



OWNER - SY SPROCESS (2) 

ENECASE • 

CASE (2) : ’vEXT NAM = 'ERROR'; 

OWNER = SYSPHOCESS (1) 

ENECASE; 

CASE (5): EXT NAM = 'FILEOP'; 

OWNER = SYSPHOCESS (6) 

ENECASE; 

CASE (4): EXT NAM = 'INANE'; 

OWNER = SYSPHOCESS (3) 

ENECASE; 

CASE (5): EXT NAM = 'INPUT'; 

OWNER = SYSPHOCESS (4) 

ENECASE; 

CASE (6): EXT NAM = 'JOBQSP'; 

OWNER = SYSPHOCESS (4) 

ENECASE; 

CASE (7): EXT NAM = 'NEWJOB'; 

OWNER = S YSPROCE5S (3) 
ENECASE: 

CASE (3) : EXT NAM = 'OPR 10'; 

OWNER = SYSPROCESS (7) 

ENECASE; 

CASE (9) : EXT NAM = 'OUTPUT'; 

OWNER = SYSPROCESS (5) 

ENECASE; 

CASE (10): EXT NAM = 'REDYAQUE' 

OWNER = SYSPROCESS (1) 

EN ECASE * 

CASE (11): EXT NAM = * IEUFFEB ' : 
OWNER = SYSPROCESS (1) 



ENECASE; 

CASE ( 12) : EXT NAM = ' I NT D E V ' ; 

OWNER = SYSPROCESS (1) 

ENECASE * 

CASE (13): EXT NAM = ' OBUFFER * : 
OWNER = SYSPROCESS (1) 

ENECASE; 

CASE (14): EXT NAM = 'PUTOUT'; 

OWNER = SYSEROCuSS (5) 

ENECASE; 

CASE (15): EXT NAM = 'WAIT'; 

OWNER = SYSPROCESS (1) ; 

ENECASE ; 

CASE (16): EXT NAM = ' INTERRPT ' ; 

OWNER = SYSPROCESS (1) 

EN rCASR * 

CASE (17): EXT NAM = ' I NTDE V ' ;* 

OWNER - SYSPROCESS (1) 

ENECASE; 

CASE ( 10) : EXT NAM = 'SPACE'; 

OWNER = SYSPROCESS (8) 

ENECASE; 

CASE (19): EXT NAM = 'PRINTQ'; 

OWNER = SYSPROCESS (2) 

ENECASE: 

END OF CAS is ; 



/* TERMINATOR */ 

/* ERROR HANDLER */ 
/* FILE MANAGER */ 

/* INITIATOR */ 

/* INPUT CONTROLLER*/ 
/* INPUT CONTROLLER*/ 
/* INITIATOR */ 

/* CP^COMM*/ 

/*0 UTP UT CONTROLLER*/ 
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CALI CREATE RCE ( #S EMFOR , EXT N AM , OWNER , LUMMYFB , DU KMYFB, 
~ DUMMYCHAR / D'UMMYFB,DUMMYF3,DUMMYFE, 
INAME, ERROR) ; 

IF TRACE THEN PUT FILE (SYSPRINT) LIST ( 

•CASE INDEX = , .I. , INAHE = ', INAME) SKIP; 

ACCESS (INAME) = ##ACCES; 

DO ACTION OF CASE (I) ; 

tASZ(1)T $ END JOB= INAME; 

CASE (2 i : SERROR = INAME; 

CASE (3 : SFILZOP = INAME; 

CASE (4) : $ I N A M E = INAME; 

NULLPTR = NULL; 

DO J = 1 TO 30; 

CALL PRIMITIVE 



ENDCASE; 

ENDCASE; 

ENDCASE; 



{ 



ELEASE ( A N YPEOC, SINAME, 



V 



ENECASE 



CASE. 

CASE 

CASE 

CASE 

CASE 

CASE 

CASE 



CASE 
CASE 
CASE 
CASE 
CASE 
CASE 
ENE OF 
END; - ‘ 



END; 

SINPUT = 
SJOBQSP = 
$ NEW JOB = 
SOP R 10 = 
S OUTPUT = 



NULLPTR, ERROR) 



( 10 ) ; 


#REDYA 


11 ); 


$IBUFF= 


( 12 ) ; 


SINTDdV 


( 13 ) : 


SOBU FF= 


(14) ; 


SPUTOUT 


(15 : 


SWAIT = 


(16 ; 


SINTRPT 


(17 : 


SINTDEV 


(18 : 


SSPACE 


( 19 ) ; 


iPRiNig 


CASES 


• 



INAME; 

: INAMd 
‘ INAME 
: INAME 
= INAME 
: I N A M is 
INAME; 

= INAME; 
INAME; 

= INAME; 
J.NAME; 

= INAME; 
= INAME; 
’ INAME; 



ENDCASE; 
ENDCASE; 
ENDCASE ; 
ENDCASE ; 
ENDCASE; 

ENDCASE ; 
ENDCASE; 

ENECASE; 

ENDCASE; 

ENDCASE; 
ENDCASE; 
ENDCASE ; 
ENDCASE ; 
ENDCASE; 
ENDCASE; 



MESSAGE = MSG INIT: 

DO I = 1 TO 87 

INAME = SYSPROCESS (I) ; 

IF (I > 1) THEN 

CALL PRIMITIVE PCBDATA (INAME, dFUT, 5JRESVEC, 

SEi'CL LIMIT, PCT U LIMIT , ACCESS , ERROR 
CALL PRIMITIVE P"CBDATA (I,af5ET, <i>PRIRTY, PRI, ERROR 
CALL RCBPUTU ( fflEDY A , # OS , I , DUMB YFB , PPI, NULL PT 5 , 
DUMMYF3 , ERFOR) ; 

EO J = 1 TO 2; 

ALLOCATE OUTPUT BUFFER SET (CBUFFTB) ; 

BUFFER LOCATION - = OBUFPTR; 

CALL PRIMITIVE RELEASE (I NAME , SOB UFF , MESS A GE , 

ERROR) ; 

ALLOCATE INPUT BUFFER SET (IBUFPTR) ; 

BUFFER LOCATION = IBUFPTR; 

CALL PRIMITIVE .RELEASE ( IN AME , SIB UFF , MESS A GE , 

ERROR) ; 

END; 

END; 

FRjiE MESSAGE -> MESSAGE BUFFER; 

CURRENT PROCESS =0; 

CALL PRIMITIVE SCHEDULER ; 

END INITIALIZATION ;“ 
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PREPROCESSOR SIMULATION MACRO , USED TO INCLUDE THE 
INDICES AND PRINT OUTPUT MESSAGES FOR SIMULATION. 

'•ENAELED" BY ^INCLUDE SIMULTB; */ 

%DCL SIM START ENTRY (CHAR) RETURNS (CHAR) ; 

%DC1 SIM - INTERRUPT PT ENTRY RETURNS (CHAR) ; 

£DCL 3SIEET FIXED ; T 
3SDCL SIM_END CHAR; 

X2SIMPT = 1 : 

5SSIM END = ' ECL SMLPT (3SIMPT) LABEL; IC = 1 ; 

SIMEND: RETURN;'; 



% SIM_START : EROC (3SIMNAM) RETURNS (CHAR); 

DCL (3SIMNAM/3SI MRET) CHAR; 

ESIMRET = 'DCL IC FIXED BINARY EXTERNAL; 

PUT FILE (SYSPRINI) LIST ('• ENTERING " , • • ' 

( | 3SIMNAM U' " , ' 'IC=' ' ,IC) ; GOTO SMLPT (IC) ; 
SMLPT ( 1 ) : ;' ; 

RETURN (3SIMRET) ; 

XEND; 



% S I M_ I N T E E R U E T_ PT : PROC RETURNS (CHAR) ; 

3SIMPT = asiMPT +1; 

RETURN ('IC = 3SIMPT; GO TO SIMEND; SMLPT (3SIMPT) : ;'); 

%END; 
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18. Sayers, A. P . . Operating Systems Su rv ey. p. 104, 

Auercach Publishers 7772. 
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